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INTRODUCTION 


The GEODYN Orbit Determination and Geodetic Parameter 
Estimation System consists o£ a set of computer programs 
designed to determine and analyze dey/iitive satellite orbits 
and their associated geodetic and measurement parameters. 

This manual describes the Support Programs used by the GEODYN 
System. The mathematics and programming descriptions are 
detailed in the first section. The second section contains 
the operational procedures of each program. 

GEODYN ancillary analysis programs may be grouped 
into three different categories: 

1. Orbit Comparison - DELTA 

2. Data Analysis using Reference Orbits - GEORGE 

3. Pass Geometry Computations - GROUNDTRACK 

All of the above three programs use one or more 
tapes written by the GEODYN program in either a data reduc- 
tion or orbit generator run. Although it is not necessary, 
these programs are generally run immediately following the 
associated GEODYN run, thus minimizing tape handling problems 
In addition all three programs use the WRDC PLOT PACKAGE and 
can produce a graphical depiction of their results both on 
printer plots and on SC4020 microfilm or hardcopy plots. 



In addition to the above analysis programs, tne 
GEODYN System contains five data management routines:. 

1. Sort^merge program in DODS format - 
DODS SORT -MERGE 

.'S / 

2. Sort-merge program in GEOS format - 
GEOS SORT-MERGE 

3. EPHEMERIS TAPE GENERATOR 

4. 9-7 Track conversion - ORBl CONVERSION 

.5, TDIF TABLE GENERATOR 

The flowchart on the following page depicts the 
structure of the entire GEODYN System. 
























SECTION 1.0 

^ MATHEMATICS AND PROGRAMMING 
DESCRIPTIONS OF THE GEODYN SUPPORT PROGRAMS 

.'X i 

1.1 ■ GEODYN ANALYSES AND GRAPHICS^SUPPORT PROGRAMS 

There exist three ancillary programs, DELTA, GEORGE, and 
GROUNDTRACK, which are used with the GEODYN program in the 
analysis o£ GEODYN determined trajectories and residuals. These 
programs are entirely independent o£ the GEODYN program. All 
three use as input GEODYN generated data files, thus, 
usually they are run as a second job step after a GEODYN run. 

/ 

' DELTA is used to print and/or plot along-track , cross- 

track and radial differences between two trajectories. It 
differences orbits of the same satellite for the same tine 
period but generated w'ith different values for certain para- 
meters or reduced over different data spans, 

GEORGE performs a regression analysis of the residuals 
for each pass of data about a trajectory to determine trends 
in possible timing and measurement biases. 

GROUNDTRACK simply plots the groundtrack of the satellite 
over a particular tracking station or stations to provide geo- 
metric insights into data trends. 

All three programs w'ill optionally produce printer and/or 
SC4020 plots to illustrate the computed results. Hence the WOLF 

t 

PLOT PACKAGE. must be included when using these programs. 
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1.1.1 DELTA 


INTRODUCTION 

The graphic support program DELTA prints and/or plots 
trajectory differences. The two trajectories enter the 
program from two magnetic tapes in either an R-V tape format 
or ORBl tape format. If the tapes are in the ORBl format 
the subroutine RDORBl is called to obtain each trajectory 
point; DELTA itself can read the R-V tapes. The subroutine 
READER is the driver for the sequence of calls to the Plot 
Package, which provide the plots of the trajectory differ- 
ences. 

DELTA uses the DSQRT, MOD, and FLOAT system routines 
and approximately 250K bytes of core. The program will 
difference 1400 time points of two orbits in less than three 
minutes of CPU time. 

Subroutine and common block cross reference charts 
appear in this section. The calling routines are at the 
top of the subroutine chart and the corimon blocks are listed 
down the side of the common block chart. 

The routines in the Plot Package are all in G and H 
level FORTRAN with the exception of TIMING which is in IBM 
360 Assembly Language. These routines were designed to be 
efficient on the IBM 360 series machines; no attempt what- 
ever has been made to pursue the myth of compatibility. 


1-2 



PROGRAM mathematics 


.r.i=cto,y ..pos inp„, to DELTA c.ntltt 

...oUlto pooitloos (X.T.L) .oa ..loct«i«» P.’’" 

Cartesian system at given time intervals. 


of the 
in the 


If X^, 

lite position from 
nates from tape 2 


are the Cartesian 

tape 1 and '^ 2 ^ ^2’ 
then the position di 


coordinates of satel 
are the. coordi- 
fference vector is 


AP « 


(AX “ X2 ■ 


AY = Y2 ' Y 


and AZ - ^2 ■ 


The velocity difference vector AV = (AX, AY. AZ) is 
computed siiriLlarly. 

Tk„o .octets .to tL.n t-oKoi i”'» ‘ 

„ . „oss-tv.cl. .octet C, .Dd .n spp.ex».t »» 

.l.^gir.cL .octet, L (fet no.tly citcel.t ..btt.) . 

Fltst th. dtstspc, tro. .DC p.econt.t t. th. s.tol- 

lite, R, is computed ^^'here 


R - Nj 


X 


(2 + 


• tRr ve loci tv vector (• 

/-A f •f'lif’ maf^nitude ot tne < 

and the square of tne 


2 ^ JZ + iA 


delta 
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/s 

Thus the unit vector, U, in the radial direction is 




Y 


Z 

R 


/ 


Then to calculate the magnitude of the vector in 

/s 

our along-track direction (normal to U in the orbit plane) , 
A, we must compute U • V because 



Now we compute the unit vectors in our along-track 
direction A = ^ 2 * where 



and the cross-track direction C = (C^^, C2, C2) where 


C = A X U 


or 


DELTA 
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DELTA 



Finally we compute the position differences in 

radial, cross-track , and approximation to along- 

track, L ; 

. P 

Hp = U - Ap 

Cp = C • Ap 

Lp = X « Ap 


and the velocity differences in the radial, , cross-track, 
Cy, and approximation to along-track, L^; 


H « U • AV 

V 

= C . AV 

Ly - A • AV 
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CALLED ROUTINES 


SUBROUTINE CROSS REFERENCE CHART 


CALLING ROUTINES 



MAIN 

1 

*• 

CQ 

CC 

O 

D 

CC 


m 


1 

ADTIME 

0 


B 

RDORB1 

□ 

1 

1 

READER 

0 




COMMON BLOCK CROSS REFERENCE CHART 


ROUTINES 



2 

< 

READER 

PLOTTP 

O 

O 
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MAIN-DliLTA 
Page 1 of 9 
30 September 1972 

MAIN-DELTA 




DESCRIPTION 

The main routine DELTA reads data from two P.V 
tapes or receives data from the routine RDORBl, calcu- 
lates and prints radial, cross-track, and along-track 
differences, and calls READER to make plots if requested. 
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MAIN- DELTA 
Page 2 of 9 
30 September 1972 

reprodugibility of the 
ORIGINAL PAGE IS POOR 


NAK£ 
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IKFLrT FlLt.6 

OUTpCt F ILE 
PESTFICT10N5 


MAIN - DELTA 

DIFFERENC-IS GLODVN GiNEPATEJ RV OhJ CRRl 

RDQRQl READER 

PLOTTP 

INPT - DELTA INPUT CARDS 
PVTAf> 1 - «V TAPE I 
RVTAP2 - PV TAPE? 

OUTP - PRINTER 

N.JNii 


TAPES 


rt E Fc-RdNC tS 


NONE 


COUbLc PRECISION X Y ZEN 1 ( 6 ) * >CY 2 EN2 ( a ) • DSOR T » DX( 3 » i OXDOT( 3 ) . U C 3 ) * 
R2tW»V2,UDOTV.VOOTv2iAT(3)«C(3).JP<3).DV<3).V30 
REAL>s=a DA T3 I » DA YS2 I YMD I « YMU2 1 H W5 1 iHMSZ* cUF » SUMPOS » S UM VEL » OAY'<( 2 I « 

, SCRC J> .Sf;V{ 3 ) I X IND .T I TLf 

REAL NTftVL 
OlNENSiON DDR(3> 

LOGICAL IFlOT , I S« 1 1 ISW2 
tOUa'LE PRECISION DELTA! 

LUGI CAL C pu t • LASTS*. 

integer hVTAPl»RVTAP2, INTP.OUTP 

DATA I NTP lOUTP, RVTAPl , KVT AP2/5 «6 . 2t , 22/ 
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• T I TLE ( 2 I ) » I EPOCH ( 2 ) . INDEX . NDPT , SC AL £ { 2 ) . NT R VL 

DATA DAYfi.SDR.SDV.Xl ND/3 .6GO2.3.6£O2.7*C.0DC/ 

DATA NL.M/C/ 

6CC 1N0EX-=C 

C DETERMINE INFCT TAPE UNIT NUMBER S . FLO TT I N G OPTIONS AND SCALES.TYPE UF 
RcaD (INTF.ICCO) IWVl.I RV2 . IPLOT . NOPT , NQR81 « NUMl « I LA ST .SCALE . NTRVL 
NUMl=MAXC (1 .NLMl ) 

1F(NUPT.LE.L*CR.N0PT.GE.7 ) N0PT = 7 
C SE T OKC3 1 5 A I T CH 

CRUl =m:R 6 l.GT .C 
LASTS« = I L ^ST # eo .0 

C RESET RV TAPb UNITS IF REQLLSTEO 
IF(IRVl.O.O) RVTAP1 = IRV1 
IFl IRV? ,C-I .C ) RVTAP2=IRV2 
REnlriD KVlAPl 
REaInD RVTAP2 
NORt>l=l 

JF( ORS t ) CU TC 40 
C READ FIkST data RcCQRD 

RLAUIR VTAP II CAYSl . I YMDl . IHMI , SEC 1 . XYZfNl 
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■OELT 

23 

DElT 

JC 
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.'V / 

«cAD (HVT4F2) CAYS2.lYMC2.lHM 2. StC 2 . X Y.!t.N2 
«l COnriNUc ^ 

IrtMS 1= ( Il-M * 1 :c > +I F I X( S^c 1 ) 

IMMS2= (i^-^2"l•:''l+IFlX(SEC2) 

K=1 

C WRlTc. t_PuCH AhC £LF.M£NTS OF ftV TAPE 1 

*»mTt(CUlF.3CC0C ) N.IYMCl,lHMSl.XY2iNl 
K=2 

C WRITE EPUCh AFO SL£m=;nTS OF RV TAPE 2 

*RI TE ( DU T F . 3C : 0 C ) N . I Y MD2 . 1 HM S S . X Y2 £ N2 
IF( . NOT . I FLOT ) GO TO 2 
C READ TITLc IF PLOT IS REQUESTED 
NcA'0( INTF ) TITLE 

C CAlCOLATL cPCCH in year, month, DAY. HJUR, MIfiUTE, SECOND FDR PLOT 
ItPUCHI I JSIYMC2 
ItPOCM(2I=lMMS2 

2 N=C 

WHITE ( OLTF .3f or 1 ) 

IYl= lYMO l/K jCC 
IY2*IYf.Oi/l,'OrO 
JFU Y I .Ge .1 Y2 ) GO TO 3 
LlaM]NO(FCO( lYl .4} , I }^1 
TRLt. 

GO TO I 

C ReAD HcAOLR FECOhOS ON OR51 TAPES 
40 READ {RVTA FI » CAYSl 
RlauCRVTAFO CAYS2 
C kEAu uHui CAT* » COORDS 

EC CALL KLUFEl ( DAYS 1 1 XYZHNURVTAP I , I , I YMOI , IHMl ,SSCn 
CALL *Rl;0Fei(0AYS2.XYZcN2.RVTAP2,2,irMD2,IHM2.SEC2I 
CO TO (A1 ,A2) .NGA31 

3 IF ( I Y1 .EC. * IY2 ) GO TO 1 
LlJ=MINC(^CO( IY2.4). l)+l 
lSw2~« THLE. 

I NUkBl=2 

IF(ORbi ) CD TO 50 
C HEAD RV CATA FECOFO 

READ (H VT AF I ) C A Y S I . I Y M D 1 , IHM 1 , SEC I . X Y 2f. N 1 
real <K VTA P2 ) CAYS2.IYMD2.1HM2. SEC2.XYZEN2 
42 CUNT INUE 

IF(ISaI) CAYSl=DAYSl+DAYR(Ll ) 

IF(ISft2> CAYS2=0AYS2+D AYR (L I ) 

10 IFCDAYSl .cO.coF . 0 A , C A Y S 2 . EQ . EOF ) GO TO 300 
|F(OAob( C. AYS2-C‘AYS 1 ) .LT . . SD-C 6 > GO TO 25 
1F(DAYS2.LT.0AYS1 > GO TO IS 
C HEAD DATA 

1F( •NOT.CF3I ) RE AO < PVT API ) DAY Si . lYMDl . IHMI , SEC I . XYZENI 
IF<oRt)l ) CALL PDORt3lCOAYSI.XYZ£Nl.AVTAP|,l,l YMUl , IHMI ,S£C I ) 
IF(ISwl) CAYS I =OAYS 1 ♦OAYR (L I > 

GO TU 1C 
C K£AO DATA 

IS Ir ( .NOT.CFbl ) KEAD(RVTAP2) C A Y £2 . I Y MD 2 . I H M2 , SEC 2 . X Y Z EN2 

IF( ORU 1) CALL FDOR-3 1(DAY52.XYZEN2.PVTAP2,2. I YM02 * IHM2 . SEC2 ) 
lf(lSw2J CAY sr-DAYS2*DArR (L I ) 

CO TO 10 

io IF ( I NDEa . CE * A :0C > GO TO 3C3 
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SUMsiMoL'l M.V* NUVl ) 

KUMSNUK+ 1 

■ IF I NUM •Nt: . 1 ) GO TO I > 

iNOfcXs INLEX«-l 

C CALwULmTc KAL IAL , cross TRACKiALCNG track DIFFcIRENC' s 

( 1 )»»i: + XYZSN2 (2) ’•-2 + XY2£N>( 3) ««2 
K~C/4>OnT ( } 

' V2s^XYZdN<<~ >«»2txYZ£N2(£) *»2 + XYZEN2( c)**2 
IHMS'2= ( I FN 2“ 1 CC ) ♦■ I F 1 X ( SEC 2+ C • 5 ) 

DO lOw 1=1.3 

tX(l) = XYZcN2 (I >-XYZENl( I ) 

LXOOT( i)=>Y2EN?-( I + J)-xYZc;M( 

ICC L< I )=XYZ£N2< 1 )/K 

LOOT V = XY2cN2( i )*U( 1 )+XYZEN2{ 5 ) *U < 2 ) + X YZEN2 ( 6 ) *U ( 3 ) 

bCiCTV2 = LCCTV-*2 

VSG=OSv)Rl (CA6S{ V2-030TV2) ) 

CO X 00 I = 1 . J 

15C AT( 1 )= (XY2fN2 I I +3)-OD0TV*U( I ) ) /VSO 
C( 1 ) =A r ( 2 )*0 C : ) -u( 2 ) *A T( 3 I 
C( 2 » ssAT ( J }*u { 1 )-0< 3 ) * AT ( 1 ) 

C(3J «AT C X J*U < 2 ) -U( 1 ) * AT ( 2 ) 
t.R(X)>U( IJ*0X(1)+U(2M'DX(2)+UC 3)*DX(3) 
CR(2J«CIW*^^X(1)+C(2)»DX(2> + C(3)»DX(3) 
CK<3)=AT(n«CX(l>+AT(2)*DX(2)+AT(3)«0X(3) 

iiV( X )aU( 1 )*i;xCOT( I ) +U( 2 ) *DXOCiT (2 )+U< 3 )«CXJOT( 3) 

CV( 2 )*C( n»3xC;0T( I ) +C( 2>*OXOQT (2 ) fC( 3)*DX03T(3i 
CV{3)sAT< i 1 ) + AT{ 2 J»0nr5CT(2M ATt 3J «OXOCT{ 35 

A 1 1 .0 — A ! k C ^ t • C w ’< 
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. 225 tXDOT ( I J =CXnOT( I )*1 '"5. DO 

liRITc(CU7R.T0C2) IYY02, I H M S2 . 0 X . 0X0 J T .DR.OV 
IF< .NJT . IfLUT ) GO TO 2SC 
hAOL( ISOc>)=OR( 1 ) 

CTRK( INJt X) =0P ( 2 ) 

ATkK ( X NOfe X ) = DR ( 3 ) 

CAVS( XNOcX )-0AYS2 

JF( INUcX . tO . I 1 L'£LTAT=DAYS2 

|F( I NOEX .cO. 2 ) DELT AT = CAYS2-'0ELTAT 

250 K=N-f I 

IF(N.LT . £0) GO TO I 

N=0 

»RX Tt <GOTF .3C OC X ) 

GO TO X 

c CALCOLATc RMS OF RADIAL. CROSS TRACK, ALONG TRACK OlFFEKcNCcS 
300 SUMPOS-O.CDC . . 

SUMVtiL = C . CO”? 

CO 325 J= 1. 3 
SUMP05=SL»'^nS*S0R< JJ 
SUMVtlL=SL^'VcU ♦SOV( J ) 

SOK< J 1 ^OSc'rTI SCR ( J > /X 1 NC ) 

325 SOV( J J =OSCR T ( SOV< J ) /X I NC ) 

SLMPOS = i>SCRT ( SO'-'OUS/X I NO I 


CELT 

1 1 2 

DCLT 

X 1 3 

CELT 

llA 

CELT 

1 1 5 

Cz.LT 

1 1 c 

CELT 

ii:' 

CcLT 

1 1 1 

DCLT 

M9 

CLLT 

X2C 

CELT 

121 

CELT 

122 

CELT 

123 

CELT 

X2A 

OELT 

125 

CELT 

126 

CELT 

127 

CELT 

125 

CELT 

X2P 

CELT 

130 

Oti-LT 

131 

CELT 

132 

CELT 

133 

CELT 

X3A 

CELT 

135 

CELT 

135 

CLLT 

13*» 

^ *wT 

1 j: 

DcLT 

» 35 

CELT 

lAC 

OuLT 

lAl 

OsLT 

1A2 

DbLT 

1A3 

CELT 

14A 

pELT 

lAD 

CELT 


CF.LT 

1A7 

DOLT 

14 ) 

0£LT 

14? 

CELT 

150 

CELT 

151 

CELT 

152 

OcLT 

153 

CELT 

154 

CELT 

155 

CELT 

155 

DtLT 

157 

CELT 

156 

CELT 

IS? 

CELT 

is: 

CELT 

161 

CELT 

162 

CELT 

16 3 

Dt.LT 

164 

CELT 

165 

CELT 

166 

CELT 

167 


1-10 



MAIN-DELTA 
Page 5 of 9 
50 September 1972 

KEPRODUdBILITY OF THS 
ORIGINAL PAGE IS POOB^ 


SUMVi-L^D S C‘<T ( SUWVrL/XINCl /. 

^^^^(CUTP.JrCO) SD'5 1 SUMP>CS» 5D V« SU><V=:L 
P=»lNO iPVl ^ 

^c.<v 1 NO I n \ 2 

JF( .NUl . I fLOT ) GU TU 5CC 
C MAK.& uPTIONAU plot ANO/OP PLOT TAPE 
CALL cAE tP ( CELT AT , LASTS* ) 

C I'' NuT L NO»= I L c *kE AD DATA 
5CC ir(LAliT^*) STOP 


NUro=C 

IS* 1 -. FAL£p . 
S* 1 


XlNj = G *CCC 
C0‘ 5 1C 1= 1.2 
SDi<i I ) =C .CLO 
5 I i SOV(T ) =C .CD? 

CALL PDOh £ I ( D AYS 1 . X YZ£M « RVTAP I 1 . I YMOl « IHM I , 5!iC 1 ) 

■ GO TU o<.C 
59> FUKM at ( 7 Ac > 

ICCC FuP^M AT I 2 I < .L I .2 U . I 2 . I 1 i 3F1 2. 5 ) 

1001 FufiM AT ( J C 10 . S/L'D 10 . 3 1 

SCO 2 r uKM AT <IF «I6*I7»llFl''*2»r?.2) 

SiOCv FUr«M at ( 1 F 1 « • S.P0CM AND ELEMENTS --- SC 7 » » 1 2/ I M 0 » 5X . * YS AR . MCNT H ' 

» •tCAY , I 6 . AX , • HCUP INU T£ 1 S:;C3ND '.InX 

• l»“CillXlHX 12X1HY 12XIH2 ICXAHXDOT DXAMVDUT 9XAH2DOT/ 

W JX,3(lCX3h(M>),lX3(£iX5H(y/SM//*X.l=l3.1#3F13.A) 

30001 FORMAT! l h l, =H t;ATr. 5X.?r irx.2‘'»-P'JSlTl()M C> I F F PP r NCFS . t C X . 

1 9 1*! bWP L^’C !TY D!F®F°£^!CES)/lH *2X!2H'.’^»2(20 '<:cH(Y!ITs,‘3S)s 

2 22 >*SM(CM/SEC ) ) /I H .SH CATA . IX, oU 2M- )/ 

3 . IF ,S6 X I 5HC FCS5 . 5X .5HAL CNG . I 3X . 

t, 5>FCROS S » 5X » 0 H ALCNG/ 1 AH YYMWOD HH« MS 3 • oX » 2 HDX . 3X » 2HOY t 6 X . 

b ' 2FC2»'o Xt SHDXDOT . g- X . SHD Y COT . >X » 3H D2 DU T » A X ♦ AD I A L » A X , 

6 5HTPACKi5X»5HTWACK.tX.6HSADIAL.AX.0HTRACK.5X.5HTRAC</) 


3C03 FORMAT (////ASX. «PMS OF POSITION AND VELOCITY 0 1 FFtP t NCL S • // I 5X . 

1 'POSITICN DIFFERENCES ( McT = h S ) • . 4 2 X . • VEL OC I T Y DIF-£SEnCES* 

2 I X • • ( C M/SEC) * //A X . • PAD I AL • . 7X . ' C ROSS T R ACk; ' . 4 X . ♦ AL QNG TRACK'. 

J 7X»*TCTAL*.iyX. 'RADIAL*. 7X.'CP OSS TRACK»,4X.' ALONG TRACK • * 7X . 
4 • TOTAL •//FK.2.3F15«2.15X,2FFIC.2.3F15.2) 


£NO 


dllt 

1 N £ 

0£LT 

1 :> 

OfLT 

!•» '• 

Cult 

17 1 

DiLT 

1 '2 

OuLT 

173 

0£LT 

l^A 

CELT 

175 

CtLT 

IT'i 

OL'LT 

1 **7 

DLLT 

17S 

CiLT 

179 

CELT 

1 J? 

COLT 

1 

CELT 

1^*2 

Cult 

1ST 

Cult 

184 

CELT 

1 : 3 

CELT 

1 dfj 

0£LT 

le»7 

DcLT 

1 3 A 

D=-LT 

le.* 

L'cLT 

l vC 

OuLT 

1 ;i 

CiiiLT 

102 

Dc:lt 

H-3 

O-LT 

If A 

? £ L T 

19 A 

CELT 

19S 

C£LT 

l'J7 

OrLT 

loe 

CiLT 

199 

OtLT 

29 9 

Oi£LT 

2? 1 

D£lT 

2C2 

CELT 

3 

CELT 

204 

CELT 

2CS 

CELT 

2C 6 
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ADTIME 

Page 1 of 3 

30 Septer.be;- 1972 

ADTIME 


DliSCRIPTION 

The subroutine ADTIME updates tiic time of the measure- 
ment by the number of seconds between eacii data point, 
calling ADDYMD to recompute the date when necessary. 
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ADTIMF 

Page 2 of 3 

30 September 1972 




pun'Jcsti 

CALLING l;;:CUfcKC=: 


A DTI ME-; ' 

J 

CCNV"»iTS hOL^^S* MNUltS. tL'CnNOf. TO DAYS 
CALL ADT ir.T ( I YMD « IHM, SLC) 


SYMBOL 

I YFE 

IVMl) 

I 

IPM 

1 

sec ■ 

R 

SUGROUTlKli 

USED 


CC^KCN DUJCKS 
INPUT FILES 
OUTPUT FILES 
RESTKICT IONS 
rEFEHCNCLS 


Or^^CP. IPT ICN 

jfj'jUT - VQAP»r.ONTH«DAV IN FOPM YYMLDO 

INPUT - hCUP*KINLTE IN FORN HM.Y.M 

INPUT - StCCNO 

ADOYND 

NONE 

NONE 


N3NC- 

NONE 

NONE 


SUBROUTINE ACT INE( I YMO . IHh- , SEC ) 

C CALCLLAIC A INLVES 
20 |M«SLC/00. 

IF(St:C .LT .0 . > IMS' IM~ I 
S[iC«Si::C-6C .«rLOAT( I M> 

IM= nP:-40 « ( I HM/ I 00 ) IM 
C CALCLLATG LAY£ 

1D=1 M/ I 

IF(.I M. LT . C > I D= I D- I 
c CALCULATL. OL HS . I NO VE 3 
IN- IM- I U * lA AO 
IMft- 1 f: ‘ AO ^ ( I M/60 } 

C ACD r.AYS TO LATF 

IF(IU.Ni:.C) CALL ADDYMC( 1 \Y:0. I C ) 

fitrufvN 

END 


ADTI 30 
ADT I 3 I 
AOTl 3? 
ADTI 33 
ADTI 34 
ADTI 35 
ADTI 36 
ADTI 37 
ADTI 36 
ADTI 39 
ADTI 40 
ADTI 41 
ADTI 42 
ADTI 43 
ADTI 44 
ADTI 45 
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RDORBl 

Page 1 of 4 

30. September 1972 


RDORBl 


1 


DESCRIPTION 

RDORBl reads a record of 50 data noints from one 
two ORBl tapes and stores them, returning one roint to the 
calling program. One point is returned for each subsenuent 
call to RDORBl for a specific tape until it is necessarv to 

read another record. 
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RDORBl 

Page 2 of 4 

30 September 19 


PtiSPCSc 

calling biCJL-hCz 


SYMuOL 

TYPE 

TIME. 

OF 

XY2 

OF 

(4) 


OBUl 

1 

N 

I 

i YM^A 

1 

IFMA 

I 

AScC 

R 

SL6AGUTINC 

LSEO 


CCKMUN BLOCKS 
INPUT FILE 
OUTPUT FILES 
RESTf^ICT IONS 
REFtFENCcS 


READS OPbl TAPES 

CALL RDOCF;l(TIME.XYZ»J«bliN.I YMDA » IHMA , ASEC > 
OcSCPIPTICN 

OUTPUT •* NUM35R CF DAYS FRC'-< EPOCH 

OUTPUT - CCCRDINATF5 OF POSITrO^^ ANC VELOCITY 

INPUT - LNIT NUMCEP OF PV TAPE 
INPUT - RV TAPE INDICATOR (I OR 2) 

OUTPUT - YEAR,MOMH»DAY OF COORDINATES 
OUTPUT - HOURtMINUTE OF COOMDINATCS 
OUTPUT - SECONDS OF OORO I NAT GS 
AOTIMc 
NONE 

ORBl - ORBl TAPE 

NONE 

NONE 

NONE 


SUdKOUTI NE ROCR ei ( T I Me .XYZ, OR8 1 1 N . I YMCA , I HMA . ASEC ) 

N£AL»b ttL FI { 5 I . 6UF2 C S I .E’UF( 3 . 2 ) . ELEM5 I ( o, -jO > , EL E MS2 ( 6 * 50 ) « 
t £LEMS(6.50.2J ,0ELT AT( 2) .OAYS(2J#SECiT IME,XYZ<6 J #EQF 

INTEGER CF81 

CIMcNSIC^ M( 2 ) .NOT I ST ( 2 > , IYMO( 2 » . IHM ( 2) . SEC ( 2) 

LUGICAL KCTIST 

£OUI valence ( DUFl . BUF ) .{ bUF2.6LF{ I .2 ) ) » (ELEMSl .cLEMS) . 

1 ( ELEMS2 *ELEMS( 1 . 1 • 2) > 

DATA M/2«fC/ 

LATA NCT 1 £T/2». false ./ 

DATA tCF/^SSSSS^S. CD3/ 

IFIN.LT.C J GO TO 25 

C TEST Ir AkAAT IS EMPTY 

|F(M(N) ) GO TC 5 

c REAU CuLRDiNAlES IMU AN Ah•^-AY 

IFIN.LQ.n READIO^L I .END=20J aLFl.ELGMSl 
iF(N«LL.2I HEAO(ORb I . ENCS2C I eLF2»EL£MS2 


ROOR 30 
POOR 40 
rDOR 41 
POOR 42 
POOR 43 
RDOR 44 
RDOP AS 
ROOP 45 
POOR 47 
ROUR 43 
RDOR 49 
POOR 50 
BOOR 51 
BOOR 52 
RDOR 53 
BOOR 54 
BOUP 55 


1-20 



KUURBi 
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TiWUODUCIBtLrfY OF THE 
SSSi PAGE IS POOB^ 


C CALCULATc. Tl^E OH FIRST ScT OF CCQFOINaTcS ^ 

IF (oOF ( 1 1 r ) . IG.^OF * I •CC-3 ) 00 U 20 
lY.MC- <N I = cLF ( I iN > 

* ScC ( N > =0c f ( i » N ) - l'UF ( 4 , N ) 

lH= I w I NT < S£C ( N ) / ' 0 3 ) • 1 C C 

lM=i0INr((5tCCN)~DFL0AT(lh/lC*)«3.oJ3)/6.0Dl) 

St\.( N I=ScC(N)-LKLnA T ( I M » - fc . C D I -DFL J A T I 1 H/ I 0 .0 ) * 3 . OC 3 

lF(NoT 1ST (N) ) GO TO 5 
C CAlCOLATL UAYS FriCM EPOCH 

UAYS( N ) = tI.F<2.N)+8UF(3.N>/=-6ACA 
, C CALCOLATt Tl^d OlFFtRCNCSI EtT'fccFN COGROirMTE S'lTS 
LtLT AT < N T-t'OF (A »N) / 8 *^404 
NDTl ST (N )- .TROt; . 

3 H{N) S -HN H I 

JSHIN) 

C HILL UUTPOT VECTORS 
CU 1 C 1 «c 

ic AYZ( 1) =6.1 C^^S< 1 * J .N » * I . <:03 
TIMtsCAYS (NJ 
C UPtATL T IMcS 

CAYS( N J = l /YS< K) +0i£LTAT (N ) 

StCl N) = 8tC(N >4E^UF< A,N > 

CAuL ACTJfrC(IYMO(N>ilH».'(N)«SeC<N)) 
lYWOAs lYf/C<N) 

IhMAs 1 l-M ) 

ASc.C = StC ( ^ ) 

C TEST FUR cNOF ILE 

IF(X YZ ( i J .cO*EOF ) T IMEsSS9#C0C 
hfcTUR/^ 

C RETURN LNu OF FILE 

23 TlWc=9V^.CD0 

NfcTUKN 

25 CU 3C i= I »2 

M(I)=5C 

33 NOri ST ( I ) = «FALS£« 

RETURN 

ENO 


ROCR 

5o 

ROLV. 

5T 

ROUP 

S'i 

»DOR 

SC 

ROOR 

ST 

ROOP 

^ 1 

ROUP 

32 

ROOn 

to 

ROOR 

64 

RDOP 

65 

Rour. 


RDOR 

67 

RDOH 

65 

RDOR 

6T 

RDOR 

73 

ft OOP. 

7 1 

RDOk 

72 

ROOT 

73 

ROOl? 

7 4 

ft OOP 

75 

ROQR 

76 

RDOP 

77 

ROOP 

7:- 

ROur 

7C 

ROOR 

5C 

POVl 

bi- 

ROCP 

ds 

WUU^' 

63 

HDOR 

8A 

ftDOn 

as 

ROO-l 

66 

ftOOR 

S7 

RDOP- 

■GO 

ROOK 

69 

ROO'{ 

9C 

ROOF 

9 1 

ROO-i 

92 

ROOft 

9 3 

ROOR 

9A 
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READER 

Page 1 of 4 

30 Septcniber l'J7 

READER 


yy- / 


DESCRIPTION 

The subroutine READER controls the calls to the 
WRDC Plot Package routines to generate the printer plots 
and/or plot tape for the orbital differences computed in 

delta! 
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NAj'i- 


PPADl R 

Pur.Pus.L 


PLOTS OPCITAL OirprPriNCrS 

CAuLlNv. Sr. 

GUiiNCr 

CALL R£ACrR(DT, LASTS'/.) 

SY..1l»OL 

T YPL 

DtSCRIPTtGN 

JT 

OP 

INPUT - TIME rPOK SPOCrl IN DAYS 

LASTSiiW 

L 

INPUT - LAST PLOT ShlTCH 


EDIT f-RMADV MORI. IN MAXMIN 

plot PLOTST PTYNUM VfRLIN 

PLOTTP 


SUt.r'tUUT I Nc i LS'D AMCO 




MGR 1 n 

CCKMCN 

LLCM-KS 

CPLOT 

INPUT 

P iLfc S 

NONF 

OLTPUT 

K I L c. S 

NON" 

KFSTrtlCT 2UN5 

NONE 

(iCr UKuNCilS 

NONE 


SUdRPOTlNr. RCALEP(rTtLASTSW) 

LOGICAL L^STSV. 

PLAL N1.<VL 

CU03LC PkECISIDN OT 

CUNMU;-i/Cf-L'JTl./01 (2 ) .LOGX , logy. yUDLlM . YLOL I M . XH I L I M , YHILIM, 

* XScAL . YGCAL. KXLO .FYLC . G?( S J 

COMMUN/PLCTTP/OAYS ( CC T C‘ > . RA D 1 A 1. ( A*' ’ C ) . C R STRK ( AC C 0 ) . A LCTRK ( A GO > . 
, / KRAY (2 I ) . I Yf-tO 2. I HYS2 . INDEX . NDPT . SC ALC J ♦ 5C A LL 2 » NT R VL 

LOGICAL PLOTS. TAPC 

DUUDLc. PKtCISlCN T I TLP < 3 J .ARRAY 

DATA I I TL£/ciH5;POCH . SH *6H / 

LATA NOMl/lAS/ 

CATA TAPt/.PALSE./ 

C IMT lALl 

IF(NOPT.Nt.A) TAPc=.TRUf* 

tiiASi^LAYil 1 >-CT ' ' 

ANOM = J aS t D'; »DT 
DO 10 1=1.1 NCt X 

Iv UAY.;( 1 ) = C LAYS( I 1 "I>! ASF J»2^, ' - 

c DEILKMINl: ^iAXt*''A AND MlfiiMA 0^ Ai>R/YS 

15 CALL f'. AX ;< JN( .< AD I Al . I f iO , A ’* I r 5 . ? M A X ) 

CALu MAX f.' IN ( ALCT P< . 1 NOeX , I N . A L ‘ A X } 

LmLL MAX^* IN(CP"'-TKK . INDEX.C.V-IN. C»^AX I 

ir<Nir; VI. • O . G ) (.Cl TO I 7 

^■CIALMX = /‘V,X1 { wvaX.CMAX ,M.N4 > ) 

PLhl.MN = AMINI ( .'•'.U;. C P J N , '.L •! I N ) 
c Dr.Tcl*NlN{. x'-\aI».^uM Af-;.D v. UMYLM UP PLUTTInC. G‘vJD 


REAO 

2? 

READ 

3P 

PEAD 

31 

READ 

32 

READ 

33 

RKAvD 

.•'A 

PEAD 

35 

READ 

35 

READ 

37 

READ 

3C 

READ 

39 

READ 

l\.r, 

READ 

Al 

READ 

A? 

RCAD 

A3 

READ 

4 A 

READ 

A- 5 

READ 

t 6 

REAP 

A7 

READ 

AD 

READ 

49 

READ 

sr 

READ 

01 

REAC 

t* 

rrAD 

5 3 

READ 

54 

RLAf 

SS 
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Page 5 of 4 

30 September J972 


CrtLL PI VNc.-’( f^cALMN. f^f.AL^X ,f?f. Al. N N , P. •• MX i M V^) 

CU TJ Ij _ ^ 

17 c-jMlNOi: 

(.cAUMX s: SCALP I 
AlMi, = hCALC2 
NY=NT>^.VL* *X 
16 CO.sTlNUc 
lt.1 A»<T =l 
XX = J • - 

• XM1N = ; • . 

C sTAni Plot 

PUOT'i=»TWL'— • 

CALL PLOT ST ( NCPT .PLOTS ) 

CAL» MUWLlNCSPHTRAJLCTCt^Y DIKF t- P ~ NC£ S . ?2 ♦ 5 1 2 ) 

CALl. LOIT{{YMU2,MC)'.)ITLl(2)»P) 

. call lJIT(IMMSP.*10)*»TITL!:(3) 

/ CALL HCRL IN( APPAY( I ) » 5£ . 1 2 . A 7' ) 

' CALL HCRL IN{ ACPAY( d ) » S6 . 6 1 2 . 4 C T » 

CALL HCRL IN{ APi-'AY( I S) . 56. S12. A j*! > 

ChLL rtOi^L INC T ITLE.2 4, 3 12 , A*r ) 

C iNiriALiZc GnIO on next PAOc 
2' CALL FRMACV 

CALL HUHL INC aSHTRAJviCTLWY 0 I fF CPF NC£ S » 2 2 t j I £ » I f.' !) ) 

CALL HUWL INC I'SHHOUMS PROM =POC H • I € • 5 I 2 i ■* ) 

CALu hUPL IN C - RACIAL Din'FrPLNCcS . 25 . ii I 2 i "j C 3 ) 

CALL HOKL IrU * CROSS TLACK 0 I r F LRcNCK S . 29 « 5 1 2 • ‘.C7 ) 

CALL MCKl. 1NC2SH ALCNG TRACK D I FF EK Ei NCCS . 2 9 « 5 I 2 * 4 7 1 ) 

2*3 XKsAMuOC XKf 1 « .2. ) 

YLJL 1M«3 2 .f 5'"' • *XK 

YHIL IM s4 2 2 . + 3r*' , *XK 

KUMSMI Nj { INOEX- I START ,NUM 1) +1 

XMAX=XMI N^ANUM 

CALL OGlCieC XM IN , XM A X , I 2 . • Ff . U * . I iREAL , HE AL MX . NY , • F V . U ' . 1 • 0 ) 

XMIN&XFAX 

call VEKL INC 6hM£TFHS.6 «C . 1NT( YPILIM + YLULIM>/2) 

C PLOT DATA POINTS 

CALw plot (DA Y«( I START) .RAOIALC I5TAHT ) .NUM.4H ) 

CALL PlOI (DAYS C I ST ART ) . CR STr <( ISTAUT ) .NUM . AH *) 

CALL PLOT CnAYSC t START ) .ALGTRKC ISTAHT) .NUM.LH •) 

1ST AkT= i S 1 AMT ^ NUM 
IF( 1 NDLX *LT . I START ) GO TO 5C- 
IFIXK.GT.C.) CO TO 25 
. CU TO 20 
5> CALL FRMACV 

|K( TAPE . AND. LASTSW ) CALL PLOTS T ( 7 . . F ALSE. ) 
c ENO CF PLOT • 

1F(LAST3«) CALL ENDPLT 

PE TURN 

LNO 


RIAU 


P£ A"' 

5 » 

HE AO 

no 

r£a:» 

5P 

p::al' 

fy'' 

RCA? 

tl 

RIAO 

fi2 

READ 

63 

REAO 

6 A 

R^AD 

65 

RfAO 

66 

READ 


READ 


READ 

6° 

RF.AD 

yr 

HEAD 

71 

READ 

72 

R3AD 

■>3 

Rf-AO 

7A 

READ 


RfcA:> 

76 

READ 

77 

RH AD 

7fl 

READ 

70 

RLAD 

cr 

R^AD 

01 

RFAD 

f?2 

pr AO 

A3 

READ 

fiA 

READ 

35 

READ 

06 

READ 

67 

READ 

rf 

R2 AD 

FO 

READ 

0^“ 

READ 

01 

READ 

02 

RF.AD 

93 

READ 

0 A 

READ 

05 

READ 

96 

READ 

C7 

READ 

90 

READ 

on 

READ 

i:c 

READ 

r i 

READ 

K 2 

READ 

1C3 

READ 

irf 
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ADDYMD 

Page 1 of 1 

30 September 1972 

ADDYMD 




DESCRIPTION 


(See GEODYN) 
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1.1.2 GEORGE 

INTRODUCTION 

/>- / 

The support program GEORGE analyzes GEODYN measure- 
ment residuals. The residuals enter GEORGE from a tape 
generated by GEODYN and are analyzed on a pass by pass 
basis for either the station and/or measurement type 
specified by- card input to GEORGE, 

The main routine GEORGE selects the residuals to 
be analyzed and breaks them up into individual passes, 

GEORGE also controls which types of plots are to be made, 
if any. 

REGANL performs the regression analysis and can 
edit data points on the basis of their standard deviations 
from the mean. 

The subroutines HISTO and PLOTER provide visual aids 
‘in analyzing the residuals. HISTO plots a histogram of 
either the residuals or the ratios to sigma for each pass 
and a grand summation histogram for all the passes analyzed. 
PLOTER plots either residuals versus time or measurement 
rate versus residuals for each pass of data. Both subrou- 
tines are driver routines for the Plot Package. 

The subroutine DIFF computes the difference in days, 
between any two dates, and the subroutine RYMDI resolves 
a date in one word into three words: the year, the month, 
and the day . 

GEORGE requires approximately 525K bytes of core and 
the IBM 360 system routines DSQRT and. MOD- GEORGE will analyz 
about 1000 residuals in less than three minutes. 
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PROGRAM MATHEMAT 1 C S 

The subroutine REGANL determine? measurement biases 
(or zero-set errors) and timing errefrs in each pass of 
data and then performs a regression and analysis of the 
residuals. 

The zero-set error, A, and timing error, B, are REGANL 

determined by using a least squares method of solving the 
following equation: 

Y = A + BX Cl) 

where 

Y is the residual and 

. X is the measurement rate. 

Taking the partials of (1) with respect to B and 
then with respect to A and setting them to zero, we get 

N 

1 Vi 

i=l 
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i=l i=l 


j 

where N is the number of points in the pass. 

The two equations are solved simultaneously for A 

and B. 


First REGANL computes the sums of the rates, 


N 



i«l 


and residuals, 


N 



i=l 


the products of and , 
N 

1 Vi, 

i-1 


the squares of the rates , 


N 



REGANL 
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REGAXL 


and finally, the squares of the residuals, 

N 

1 ■'i'- 

i = l y 

Then the corrected sum of the products, CSXY, 

2 2 

the corrected sums of the square's, CSX and CSY , are 
puted as follows: 



Now, solving for B we get 


B = CSXY/CSX^, 


and solving for A using B we get 



and 

com- 
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The regression anal/sis is performed next. (See 
Anderson, R.L., and Bancroft, J.A., Statistical Theory in 
Research , 1952, McGraw-Hill Book Co,, Inc., New York, pp . 
1S6-157.) 

' j 

The regression sum of squares, RSS, is 


REGANL 


RSS 


CSXY^ 




and the regression mean, RM, is 


RM 


(CSY^ - RSS) 




which is nothing more than the square of the standard 
deviation of the residuals about the trajectory. 


The standard deviations of the zero-set error, 
SDZ, and timing error, SDT , are 
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REGAXL 


The noise about the fitted line, D, is 



yrN. / 

j 


The residual mean square, RMSQ, is computed as 


eSY^ - RSS 
RMSQ = N - 1 


To test the randomness of the result, we compute 
the residuals corrected for zero-set and timing error . 
biases , CR^ , as 

CR^ = RESID. - A. - B.X. 

where RESID^ is the residual. 

Then we compute difference sum of squares between 
subsequent residuals, DSQ, as 

N 2 

DSQ = ^ (CR,,, - CR. ) 

i = l 


The random normal deviate, RND, is then 


RND 


mi/- 1 


-J(N-2)/(N^-l) 
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REGANL 


The noise is random if 


|RND| < 2.58 


and non-random if 


|RNDl > 2.58. 
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CALLED ROUTINES 


SUBROUTINE CROSS REFERENCE CHART 


CALLING ROUTINES^ / 


j 



MAIN 

DIFF 

OiSlH 

5 

S 

§ 

UJ 

Z 

PLOTER 

AMAX1 


IB 

■I! 

© 


AMIN1 




© 


DIFF 

Di 



Bl 

■ 

EDIT 



© 
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MAIN-GEORGE 


/ 


DESCRIPTION 

The main routine GEORGE reads the GEORGE INPUT 
CARDS and sets the switches for the type, station 
number and network o£ the data to be analyzed. It also 
sets the switches for the type of analysis (residual 
or ratio) and type or types of plots desired. GEORGE 
then reads the residual tape and separates the data 
into passes. Once a pass is established, GEORGE calls 
REGANL to compute the zero set and timing errors and 
perform the regression analysis. If plots of the 
residuals or ratios are desired, PLOTER is called. If 
histograms are desired, HISTO is ca!|.led. This pro- 
cedure is followed until all the data specified is 
analyzed. 
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The tracking networks acceptable to GEORGE and 
the code abbreviations are given below: 


Network 


Code Name 
j 

--STADAN 


STADAN 

DOPPLER 


DOPLER 

U.S.A.F. 


USAF 

C-BAND 


C BAND 

SECOR 


SECOR 

U.S.C.^G.S. 


USC+GS 

SPEOPT 


SPEOPT 

INTERNATIONAL 


INTERL 

SAO 


SAO 


The typos of measurements and the code names 
acceptable to GEORGE' are listed below: 


Measurement Type 

Code Name 

right ascension 

RT ASC 

declination 

DECLIN 

range 

RANGE 

range rate 

R RATE 

alpha 

ALPHA 

beta 

BETA 

X angle 

X ANGL 

y angle 

Y ANGL 

azimuth 

AZMUTH 

elevation 

ELEV 
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NAMr- 

MAIN - 

GL’ORGE 

J 



T*Uf>PC-Sc 

f'ERH 0 n> 

'S A PECk-e; 

fSK-N ANALYST 

5 C?r- RLSIDUALS OR 


PAT lOS 

AND Plots 

THE RESULTS 



SUDLLU; INES L£FJD 

DATE 

DIFF 

MtSTO 

REGANL 

R VMO I 


EDIT 

ENOPLT 

FRMADV 

HO.JL IN 

MALM I N 


MINT 

NEW MM 

OCR ID 

PLOT37 

PTVNUM 


.VERLIN 

PLOTER 




ccr.y.CN BLOCKS 

ARRAY 

LOGIC 

COONST 



INPUT FILES 

GEORGE 

INPUT CARDS 




NON-^KE RESICUAl. TAPE 
OUVPUT F ILE PRINTER 

RESTRICT IONS A K.AXIKUM OF 400C POINTS PER PASS WILL QE ANALYZED 

R6FLRENCES NONE 


1000 I rORNAT(?(/6i/VX) I CCOP 

1000? r-ORMAT ( A6 ,fj(PlO .0 n CEOR 

» I n H 1 . ! 0 X« • ANALYSIS OF *«A6»* RESIDUALS CEOR 

20C02 rji-<MAr(U- ./• lAX, ‘NETWORK - - ••A6> CEOR 

20003 I'Qh.NATI U' .flAX, 'STATICS - - 'tA6» CEUP 

20004 rOuMATIlh IL.LEOAL MEA5URSFEMT TYPE “ SKIPPING TO NEXT CASE ) CEOR 

2C00S FCiRMArdh «SCH ILLEGAL SEVw'ORK NAME . - SKIPPING TO NEXT CASE ) CV.ftU 

20000 rUR.'^ATIlP ,?6P ILLEGAL OPTION CARO - t A6 1 46H RE MA I N I NG QPTICNGECR 

<;S IGNORED - SKIPPING TO DATA) CEOR 

20020 rORMA'I ( J hC« 62h NO DATA CF THE TYPE SPECIFIED FOUND — SKIPPING TOGEDR 

<: NEXT CAStJ CEOR 

20021 f URMAT ( U-C f 20H OBSERVATIONS BELOW •F5*1«29H DEGREES WILL NOT BE ANGEDR 

♦ALYZtDI CEOR 

20022 rO.^MAT < I I'C . 2 1 H RESIDUALS DEVIATING ,F4.I, CEOR 

UNITS on MORE F'ROP THE FITTED LINE WILL BE REJECTED) GEClR 

20023 f-OkriAT ( IHC t ‘‘ 2H TOO MANY 0 EISER V AT I ON S — REMAINDER IGNORED) CEOR 

DOUBLE PRECISION ACHAN(3»S0) • ATV-’E » CHAN i CCHAN(3«r.0l • DATAGEOR 

DOUBLE Pfir.CIvIOfJ EL . ELEV ♦ FNET(9) • FTYPE CEOR 

■ DOUBLE PRLCISUlN FTYPEKlAJ * GRAPH • IDL.ANK* I ST A , KSTA GEOR 

DOUBLE I'liCCIli ION LASER t LAST « MTYPE • NAME • NAMEST. NET GEOR 

I.'OUcJLE PNLCISION OBGOl • 0B502 « OPT . OPTIO.N(IO) * 5A0LAS GECR 

DOUBLE PACCISrON STNAMrKlOOl , TEST « TYPE CEOR 

Oir.EflSION IKNDIK'O) , IST/,RT( I Cr, ) , VALUc(S) CEOR 

COV.MON /ARRAY / 1 YM 0 C A ) t I HM ( A OOO ) . SEC { 4 0 C 0 J • ELEV ( 4000 J . GCOi? 

• RES U)( ACOO) ,£JlU:OT I AOL'O) t I COU.IT { 4-JCO ) .NAMcST(40C0 ) .GEOR 

« F I YPIK ) A ) »PAT I C (4‘. :» T > CEOR 

CUMMUN /LCGIC / LAST If' , SW ITCH CEOR 

C«l."fUfN /C.Cni'Sf/ four i T YPi;-, KST A . A,D . I SAVE «RE JrCT . Rf* JS w ' CEOR 

LOiil CAL ST S . M S T S f ,1. A S I I M , PL OVS W , >'L T ST , f>RCS W « RL J S U . SW I T CM CHCF^ 

I.UGICA*. GEUR 

DATA KSl sTiIM..TST / 2*^. FALSE, / ' CCOR 


P.O 

26 

27 

20 

29 

3C 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 
4 3 

44 

45 

46 

43 
49 

no 

51 

52 

53 

54 

55 


1-39 





OF 


MAIN-GEORGE 
Page 4 of 10 
30 September 1972 


.'N- / 

fJcJ. CT-l *CE;9 

CATA JACE-/N. JCCMAN / ? *C / 

OAl A CRAAi'- . I ni L ASF. iJ.LAST , S AOL AS/ »6H 

I ChcAST .( = I!SADLAS/ 

DATA PTVFFl/6il:f AS C t Hi: A r.GF ♦ fHR RA TE,.cH“k‘L:a 
I <.l-A2(;UT»i. CFUi-CL IN. CK « 6H 

» 6hV ANGL . ohf.L UV / 

CATA FNtT/6f-:STAn/N, GHOCM t.R.GHUSAr i6HC HAND.CHStCOa 
, 6HSrr-.uPr . t MI NTFi'L I 6HSAO / 

CATA OPT ICN/6E CMAN A,6FFl. CUT.GHCHAN C.CliAMUIG .6HPr<QCCS 
► e.l-IM.Or »6H » CHREJEC V. OHOATA / 

105 A 


♦6HLASFP » 


< 6EAALPHA 
■ 6t1 


, 6H>C AM 
,6H3FTA 


• 6HUSC* GS» 


6HM I STGMi 


DO 

ICC PTYHc< I >-F YVPE I ( n 

READ GEORGE INPUT CAF-^DS AND SFT SWlVCHr.S 

4 READ I 0 0 C N r Y FF , K~ T . i: S T A 

IF < NE Y • i: C. CR «R|<: >FN b'T ( I ) - GRAFR 
IF I NET .F C.LASER l^^;ET ( 7 ) ■- LASER 
IF ( NET , 5. C*SAC,L.A5)FNET { 7 > - OAOLAS 
IFINET .EC fCOANC ITNc T ( 9 )»Ct?AND 
PRINT COCCI. TYPE 
CRDCUr^a • F AL.3E • 

CAST IMS. r /LGE * 

SVM rCH~*F/L3E» 

noT=o 

NSAVE=0 

NPEASsO 

f>n 2 Z “ I t ? 

IF < TVPt .eO.FTYPE( M ) I SAVE = I 
3 CONTINUE 

IF(ISAVc.NE.O) CO TO 99 
PRINT 20CCA 
CO TO 27 
99 CONTINUE 

IF < NET. eC. I CLANK) CO TO 1 
PRINT 20CC;i.NL'T 
00 S 1-1.9 

IF (NET.EC.FNETI I > )NSAVE= I 

5 COr^TlNUe 

IF (N3AVC.NE.0) CD TD 1 
PRINT ?00C5 
CO TO 27 
1 CONTINUE 

IF ( K5TA. KE . I El. ANK ) PR 1 NT i:0003 .KSTA 
INITIAL I /i. CONSTANTS AND SYiITCHcG 

CO 20 1= I . ICO 

20 STNAME(I)= I F LANK 
CUT Si 0.0 
1 40 20 =^4 
/MGSV'-.F/ LSE . 

MSVSl.-.r/LSE. 

FLOVrr'-.F<ELSf. . 

TRuru. -.r/tSE. 

RE/D LlGI.-GL It.PUl CARDS 
C REAL- J c ue * «Cf’ I . VAI. ur 


FOR NETWOFJK AND STATION 


AND f-cl ANALYSIS AND PLOTVltLS OPTIONS 


CEon 

f,#5* 

crop 

07 

CEOR 

5S 

Gcon 

59 

. GLC'O 

SC 

.croi-' 

Cl 

GEOH 

02 

cr.oR 

63 

GLOR 

6 A 

. CL UR 

65 

CEOR 

66 

GEOK 

67 

GEOR 

63 

GEOO 

69 

CEOR 

7C 

GEOR 

71 

CEOR 

72 

GEOR 

73 

GEOR 

7 A 

GEOR 

75 

GEOR 

76 

GEOR 

77 

GCOR 

70 

GEOR 

79 

GEOR 

CO 

GEOR 

fil 

GCCIR 


GEOR 

n3 

GEOR 

Cw 

GEOR 

05 

GEOR 

06 

GEOR 

fi7 

GEOR 

00 

GEOR 

09 

GEOR 

90 

GEOR 

9 1 

GEOR 

92 

6COR 

93 

GEOR 

9 A 

GEOR 

95 

GEOR 

96 

GEOR 

97 

GEOR 

9ft 

GEOR 

99 

GEOR 

ICO 

GEOR 

101 

GEOR 

102 

GEOR 

103 

GEOR 

10 4 

GEOR 

105 

GEOR 

106 

crciR 

10 7 

cenn 

1'*‘6 

GCUR 

109 

CEL'R 

1 10 

CEO?: 

1 1 1 
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DO 7 1 = » , 10 Jy. j 

IF. < aMf.Nt,(>PTION{ I MOO TO 7 ^ 

CO TO <ii*?.lC.ll*I2»t3.l4»l£)*l<,17>*l 

7 ctr,an-u.i: 

• FKINT 2CCC6*OPT 

GO TO 17 

a JACMAN .= JACHAN +1 

ACHAN( I , JACVJAN ) = VALUfl(l) 

ACHANI 2 , JACHAf. / = VALUE(?J 
AC» IAN( J » JACHAN ) = VALUEi(A.J<l 
CO TO 6 

9 cur S5 VALl.e{ I ) 

I'KlNT 2CC21»CUT 
CO TO 6 

10 JCCHAN = jCCHAN ♦ 1 

CCHAN< I , JCCHAN)= VALUEIU 
CCHAN( 2 . JCCHAN ) = VALUc(2» 

/ CCHAN( 3 I JCCMAN ) = VALUE (A) f I 
CO TO 6 

11 AMiJSiiV =5 «1RUE« 

CQ TO 6 

12 raosw a *iRue. 

CO To 6 

13 MSTSK a iTRUE. 

Swn CHa VALUE C I ) , EQ , I . , C:R .VALUE ( n .EQ . 3. 

GflOSUM*VALUr:( U . EQ • 2 . . OR • VAL UE < 1) .ECi . 3. 

CC TO t 

A*. rLOl 

ir-( VALLE ( II . tC. 1 . ) I402C=6 
CO T.O 6 
15 CONT INUE 
CO TO 6 
le CONTINUE 

KEJSW a.TPUE. 

REJECT = VALUE ( 1 ) 

PRINT 20022, REJECT 
CO TO 6 

C READ NONAMt RtSlCU/L TAPE 

17 READ ( 1 o • END--: I E . EPPS 1 G ) i y.vqI . IHM t , SECl , I ST A , M T VPE . 0 a SO I , RH S 1 0 1 
• R at IC 1 , OGDOT 1 . GHSD2 , Kt 5 I D 2 , RAT I 02, 0BD0T2 ,EL , INET 

C TEST FOR END CF DATA 

IF { 1 STA . to. I ELANK ) GO TO IF 
if- ( INET. to. D MN’ET = 2 
C TEST FUR RLQLfcSTtC DATA 

ir-< EL «LT . cur 5 GD VO 17 

IF ( 1 ST A ,Nt , KSTA . AND.K $1 A .NE . I ELAN-'. I GO ;T0 17 
IF { Nc.T • N £ . f‘ Nt T ( IN ET ) • AND .rJFT • Nc. I jl.AN'K IGG TO 17 
IF ( MT Yl»£ ,N“ . TYPE ) GO TC 17 

C STORC IxESIC-UALGi TUIE, ElF.VATICN, AN'O STATION NAME 
KKLAS N^f:AS + I 
IF (^^;L AS .LT. ACCO ICO TC I C4 
Print 2CC23 
CU TO lo 

104 lYfriXia^uAS)- lY‘:ui 
1 h;:( N.v.t AS J - irC'l 
SEC ( Nf.'.LAS 1 - SfCl 


CCOR 

1 12 

CLOR 

1 \ 3 

GKOR 

114 

CL.UM 

1 ! 5 

GEOt? 

1 16 

croR 

1 17 

CEUR 

110 

CFOR 

1 19 

GFOR 

120 

ce OR 

121 

CF.OK 

122 

CL OR 

123 

CEOR 

124 

CCOR 

12 ‘3 

CEOR 

126 

GEOR 

127 

GLOR 

128 

GEOR 

1 29 

6EOR 

130 

GLOR 

131 

C£ OR 

132 

CEOR 

133 

GCOF^ 

134 

CEOR 

135 

CEOR 

136 

GEUR 

137 

GEOR 

1 3 5 



GEOR 

143 

GEOR 

141 

GCOR 

142 

GEOR 

143 

CEOR 

144 

CEOR 

145 

GEOR 

146 

6E0R 

147 

CEOR 

140 

CEOR 

149 

GCUR 

ISC 

CEOR 

ISl 

GEOR 

152 

6E0R 

153 

CEOR 

1 54 

GEDR 

155 

GEQK 

156 

CEOR 

1 57 

GFOR 

153 

CEOR 

159 

GEOR 

16C 

CEOR 

16 1 

CEON’ 

162 

CEOR 

163 

CEOR 

lOCr 

CEOR 

145 

G!!OR 

166 

CEOR 

167 
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Jy- / 

tl.LV(NM-^5) = tL ^ 

aG) = 1STA 

Ir ( KGT A . c C . I tiLANK J 00 TO l^l 
. ISTel 

STNAMc ( I » =KST ^ 

GO Tu 

1C I COM' INOd 

Ca 2 1 i = 1 flTO 

IF ( STNAf/c( I ) «FO. U>TA) CC TO ?2 
IFt STNAMt ( I ) .NE;* lOLANK J GO TO 21 
IST=I 

STt-jAMi..( X 1 = ISTA 
CO TO 22 

21 CONTINUE 

22 CUNTINUt 

fitSl 0( NMfc/S 5 = RESIDl 

PAV 1 0( KMc/S ) s PATXOX 
Ci)OOT(KM£ /iS ) = OaOOTl 

C STOML HAlkED REGICUALS IN UPPc*^ HALF OF ARRAY 

IH< 1 SAVE tAF. 1 »ANUf I SA Yt*NEi6*ANO« ISAVe* KEi 7) CO TO 17 

RtASN = NMfc AS^i 2Cf 

R£orO(HcASN) = PElSt02 

RATlOCKt^SM = RATI02 

CiaOOT ( Nc/SN) = OODOT2 

lYMOlKLASMf lYMDl 

1MM< MLAbN J'-l HN'l 

S£C< M-iAuN )rS,eCl 

FI FW f M FA AN »r.FI 
NAM£ST{ME^SN)-ISTA 
CO TU 17 
16 REMIND IS 

IF ( NMEAScNE*C)GO to 50 
PRINT 20020 
CO TO 102 
50 CONTINUE 

C MATCH .••E«GUf<ef''ENTS WITH STATION NAPE 
00 2a J s 1. I ST 
JJSO 

00 19 l=liNMEAS 

If-lNAHliST (IJ •NE.STNAMEI J ) )GO TO 19 
JJ s JJ ♦ I 

ICOUNT(Jj)sI 

1 9 COilT INLE ’ • 

ISIAF^TU) = ICOUNT(l) 

NPASS = I 
KK a JJ - I 
CO 24 1=1. KK 
K - ICtU(.T( I ) 

M s ICOUM dill 
C TEST FOr< A MV.’ PASS 

IH.‘.tS2 = i I f’(T. 1 CO 

CAl L D irr ( I VHfX N ) , » HVS 1 . I YyO( M J . IHMS2 . I CAY . isrc » 

IHH.-; I U AY ^ ;•< *■ I Gf C/Jf-C C 
IF ( IHR.LI. 1 )CO TO 24 
Nf*ASS = MASS ♦ 1 


CEOH 

1 1> ' 

CCDR 

1 0? 

C THR 

17' 

glor 

17 1 

GEUR 

172 

C-: c'- 

I7.i 

G’.'OR 

174 

Gt.llR 

17S 

C."OR 

176 

GE0.7 

177 

CEOR 

l-'S 

G.'on 

170 

CLDf! 

ISC 

CCnR 

p'l 

crop. 

132 

GEUP 

115 3 

GO OR 

134 

GEUfI 

165 

GCOR 

1(26 

GEOn 

107 

GECJR 

168 

CEUP 

139 

6C0« 

I9'' 

CEOR 

191 

CCOR 

192 

ceoH 

193 

GEOR 

194 

CEOR 

195 

CCOK 

196 

GEOR 

197 

GEOR 

196 

GEOR 

199 

CEOR- 

200 

CEOR 

20 1 

CEor< 

20 2 

GEOR 

203 

ceoR 

204 

CEOR 

205 

CEOR 

20 6 

CEOR 

207 

CEOR 

2C6 

CF.OR 

209 

CEOR 

210 

CEOR 

21 1 

CEOR 

212 

CEOR 

21 3 

CEOR 

214 

CEOR 

215 

CEOR 

216 

CEOR 

217 

CKOR 

210 

CtUR 

219 

croR 

220 

GLOP 

22 1 

CCOR 

222 

croR 

223 
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fSTAKT (NT - tf. “ ' 

IcND ( r,P/. i i } = N y 

24 CONriNl.t 

K- < t • fi «. f L.O r SV. ♦ PLTST ) *ANO • ( *NOT * H I STSv;* (JP.HSTST ) ) GO TO 106 

C IMTiALl/c. PLCT P/.CI:AGK 

CALL r'LOr?T< 1 f C 20 t * TRUE. ) 

CAl.L fl.MACV 
PL_T £ T “ * T h Lt • 

HSTST”*T»^LE. 

IC 6 I t.N'D( .Nif AS S J ~r\ 

DO 2 ii 1 - J . PPASS 
M = ISTAPT( n 

C PCnrCRM- THE PEGfsGSSION ANALYSIS 

CALL Rt GAi\L ( I ST AUT { I ) . U NO( I } . STNAMEi J ) «P.M) 

1 A( «NJT»rLOfSW} GO TO lOV 
C MAKE TM£ PLOTS 

CALL Plow t;R( I START ( I ) , IENO( I J * PM* STNAM£( J 1 * I SAVE J 
1 P( I SA Vt“ » cO . 1 -on # I S AVi; *f. Q «.<i. OR . I SAVE. EQ *7 ) 

« CALL PLOT Ek < I START C 1 ) +• 20 00 » I LN I ) ♦-20 CO • MM* STNAM£( J ) « I SAVEiT) 
107 IF (GROSLP) GC TO 25 

IF ( .NOI .MSTSW) GO TQ 25 
C MAKE THE mSTCGRAMS 

CALL M I S'l C< r STAR r ( I | , I END (1 ) * M. V . S T NA ME ( J ) * I SAVE » 

IF ( I SA Vfi *NE ♦ I .AND. I SA ve • NE.C « AND . I SA Vfc'. NE • V ) GO TO 23 

CALL H I SIO ( I ST ART ( I ) + 2 C 0 C • U;NO( I I + 2 C 00 * MM » STNAME ( J I • I SAVEf 7 > 

25 CONT I NLE 
23 CONVlNUf: 

LAST I Mr . T f-Ue . 

IF ( .NOT .l-ISTSV/) GO TO 102 

CALL HlSTLC I *NME AS * MM. f,TNAME( J J * I SAVE ) 

IF I ISAV'E .CO. l.OR* I SAve.EO.O.On. 1 SAVE.E 0 . 7 ) 

• CALL H lSrC( 2001 .MEASN.MM, STNAMC(4 > , If.AVC+7) 

C TEST FOR LAST DATA CARO 

102 READ lOCiCe.TEST ^ 

IF (Tt-.ST .eO. I ELANK) GO TO 4 
IF ( TEST *eo. LAST) GO TO 27 
GO TO 102 
27 CONT IMLE 

IF(PLVSr.CR.HSTST) CALL ENDPLT 
- STOP 
€KO 


CEUk 22^ 
G£OR 226 
C£OR 226 
GEOn 227 
CtCIR 226 
CEOR 2;:o 
GEOR 2 37 
GEor: 2.3! 
CcOft 2.32 
Geoij ?:ij 
ccnk 234 
CEOK 233 
GEOn 236 
GEOH 237 
Cfc'OR 233 
GEOR 239 
GEUR 24 9 
GECk 2A. I 
GcOR 2A2 
GEOR 243 
CEOR 244 
CEOK 245 
GEOR 246 
CEOK 2<7 
GEOn 246 
GEOR 249 
GEOR 2b0 
GEOR 25t 
CEOr< 252 
GEOR 253 
CEOR 25A 
GEOR 2SS 
CEOR. 2S6 
GEOR 207 
GEOR 250 
GEOR 259 
GEOR 260 
GEOR 261 
GEOR 262 
CEOR 263 
CEOR 264 
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DIFF 


DESCRIPTION 

(.See EPHEMERIS TAPE GENERATOR) 

' i 
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HISTO 


DESCRIPTION ■ 

HISTO determines the grid size and labels to 
produce histograms of each pass and a grand summation 
histo-gram if. requested. It is basically a drive program 
for the WOLF PLOT PACKAGE; hence all routines called by 
HISTO are members of the PLOT PACKAGE. 
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NAf/c. KISTO 



PLOTS 

HI STC GRAMS 

Or analyzed DATA 


calling sequence 

CALL 

HISTCI ISTAkT 

. I ENJ ,MM .NAME* ISAVE) 


SYMoOL TYPE 

DESCP IPT ION 



I START 1 

INPUT 

- INDEX OF 

START Or PASS IN ARRAY 


I ENU • 1 

INPUT 

- INDEX OF 

END OF PASS IN ARRAY 


HM I 

INPUT 

- NUMBER OF 

POINTS IN PASS 


ISAVE 1 

INPUT 

- INDEX OF 

TYPE OF PLOT REQUEST'D 


SUEkCUTINcS CSfD 

EDIT 

FRMADV 

HURLIN MAXMIN 

MINT 


NEWMM 

OGRID 

Plot ptvnum 

VERLIN 

cckmln blocks 

ARRAY 

LOGIC 



INRUT FILES 

NONE 




OUTPUT F ILC 

PRlNTcR 



RSS*^I!^T IONS 

, NuNc 




KSREftfcNCcS 

none 





SUoItOUTfNE H I STG ( ISTART . I END .M )w* NAM= , I SAV£ ) HIST 

DOJcLE. PfifcCISlUN ELEV . FTYPE • IdLANK. NAME * NAMEST, TITLE<6)HIST 
DOUBLE PRECISION TYPE • XTITL{6) « YTlTL(u) HIST 

COMMON /AfikAY / I YM O ( A C T 0 ) ♦ I HM ( AC 00 ) . SEC ( A ^ 0 0 ) . HLE V ( 4 00 0 > * HIST 

• RES ID( 4r Cf ) .GOCOT ( 4 ^00 ) • ICOUNT( 400C ) f NAMESTI 4000 > iHIST 

• FTYP£( 14 > ,RAT I C( 4COO ) MST 

COMMON /Lccrc / LAST IM . Sw. ITCH HIST 

LOGICAL L /ST 1 M. Switch . HIST 

DIMENSION Si ZE( 2C ). X( ^ ) .Y(2) HIST 

DATA X TITL/aHHlSTOGRA , £HM OF R*SHATI0 FR * 3HFQUENC I E t BHS tHlST 

• 3H / HIST 

DATA YTlTL/yFUSTOGRA, 6HM OF R*e.H£SIOUAL • HIST 

• 6H FREQUEN, £HC ICS / HIST 

C CENEHATE TITLfc FOR TYPE OF HISTOGRAM HIST 

IF <MM«LI«5) CU TO 7C HIST 

TYPL-F T YFt ( I SAVE) HIST 

TITLE! O ) slYPC HIST 

CO 5 I-l .10 HIST 

5 SIZE ( i J = C . HIST 

IF(SWITCF) GU TO 15 HIST 

c SET UP MlsTOCRA*^ G«I0 SIZE FOP RESIDUAL ANALYSIS HIST 

CAuL N£w^^'<NAfc'E.fiESID. 1ST APT. I tND .kM AX. WMI N ) HIST 

CALL PTYM,M(kM! N.RMAX. PM I N » R M A X * NX ) HIST 


33 

34 

35 

36 

37 
33 
30 

40 

41 

42 

43 

44 

45 

46 

47 
4 3 
40 

50 

51 

52 

53 

54 

55 
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( Aes ( C- w AX- .;mI N ) /NX ) ^ 

CU 1 C := i STANT . l iMO 

JF( #NJ T .L^ ST M . ANO , NA..1; ,NF ,MAM EST ( I ) ) GU TO lO 
J={ ( IC < I )-CM INJ/CSI 2H ) +1 , 

SI^c: ( J ) = E J2Z( J ) + I . 

10 CunT INCI£ 

CO' TO hO 

13 LO -^C 1= I START , IZNO 

iF( •NOT.L^Sr IV,AND. N'AM£.NE.NAM6ST< I ) ) GU TO 23 
ft AT lot I ) =SIGN(RAT 10 ( I ) .RESIOt I )) 

2D Ct-NT iNCc 

C SET LM HJbrjCRAM GRID SI2-1 FUR RATIO ANALYSIS 

CALL Nc ^ (N AN't . RAT 10 . 1ST ART , I END AX, KM IN ) 

JF(ftMlN,cO.KMAX)GJT065 

CALL HTYNLM(HW1N,RMAX. RMlN,f.MAX,NX) 

CSI Ze= ( AcS ( PMAX-KM 1 N )/NX ) 

CO 35 I- I5TART, IcNO 

iP( *NuT • L AS r i M I AND, NAME .NF,NAMf ST I I > ) GO TO 30 
IFttfiATILU ) MrOD. > .EO.C. ) 00 10 3J 
js( t KAT I C ( I )-«'MN)/CS 1 2E ) +l . 

Size ( J)aSI2E( J) +1. 

30 CONTlNOc- 

C PINO Tmc-: MlOt-EST COUNT AND CETcPMINE INCMcMENTS 

40 CALL M AAM IN I S I 2E *NX . VM IN, VMAX > 

VMaXsVWAX^I. 

CALL PTYNLMt 5 . , VMAX I VM IN* VMAX, NY ) 

1 P i V **i A X /' i" LI5 A T ( N V ) * L T • 1 * 1 N V — V ‘"J A X 
C s»lT LNiu c.NurCl'MT v^LunS 

CAlL UGP1C(RM1n*RMAX,NX« 5HF6«1 )« 1, VMI N, VMAX , NY , SHF J • I) • 1 *0 ) 
IFt&wiTCh) GO TO 45 
DU 4 1 1«: 1 ,5 

41 TITLEt I ) = VT I TL( I ) 

CALL MCRL IN( 1 5HRES I CUAL V ALUE S , I 5 , 5 1 2 , 0 I 
GO TO EO 

45 CO 46 1= I ,5 

46 TITLEt I )-XT ITL( I > 

CALL HORL 1N( 2 IHR ATI 0 TO SIGMA V AL UES , 2 I , 5 1 2 . 0 > 

50 CALL hCRL iNt T ITLE. 4 e , 5 1 2 , 1C CC ) 

IF (LAST I V JCALL HORL I N ( 33H GRAND SUMMATION CF ALL PASSES ANALYZED, 

CALL VtHL IN( lEHFREOUENCY COUN T , I 5 , 3 , 5 1 2 ) 

C PRINT DATA 

IF ( *NCT .LAST IM ) GO TO 56 

ITOTALsO 

fcHlTEto, KC3 ) 

CO 55 J- I ,NX 

VALUEI= RMIN + (J-U*CSIZe 
VALUt2= RMIN J*CSIZE 

ITOTAL= ITOTAL ♦ SlZEtJ} 
wR ITE (6, ICC 1 ) VALUEl , VALUE 2. SI ZE ( J) 

55 COnTinlE • . 

hRlTct C , 1CC2 > ITQTAL 

56 continue 
c FLCT DAT A 

X< J ) s=A M I K 
SIZE(NX<^n = 3. 


H5T 

56 

HIST 

57 

HIST 

3 -A 

HIST 

5G 

HIST 

fif‘ 

HIST 

61 

HIST 

62 

HIST 

63 

HIST 

64 

HIST 

6 5 

HIST 

66 

MIST 

67 

HIST 

6 3 

HIST 

69 

HIST 

7'' 

MIST 

71 

HIST 

72 

HI ST 

73 

HIST 

7A 

HIST 

73 

NIST 

76 

HIST 

77 

HIST 

7S 

HIST 

79 

HIST 

60 

HIS* 

J1 

H * 

52 

ttlST 

•» -y 
w 

HIST 

84 

HIST 

65 

HIST 

•36 

HIST 

37 

HIST 

• es 

HIST 

Or 

HIST 

90 

HIST 

91 

HIST 

92 

HIST 

93 

HIST 

04 

HIST 

95 

HIST 

96 

HIST 

•97 

HIST 

98 

HI ST 

99 

HIST 

100 

HIST 

ir I 

HIST 

1C2 

HIST 

103 

HIST 

104 

MIST 

ICE 

Ml ST 

106 

HIST 

107 

HIST 

133 

HIST 

109 

HIST 

lie 

HI ST 

1 1 1 
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CU 6C 1 = 1 *NX 

HIST 

I 12 


X(*.J =X ( 1 ) 4CS IZE 

HIST 

1 1 3 


V< U =S IZt (I ) 

HI ST 

Me. 

4 

Y12;=o 12c<I ) 

HIST 

1 1 3 


lF(Sl/t<IJ.Gr,'‘«)CALL PL0T(X,Y,2,4H ) 

HI ST 

1 1 -j 


Y( 1 ) -A^AX H S I Zc ( I ) . S I2E( I 41 ) J 

HIST 

117 


Yt2l =0 . 

HIST 

1 1 i 


X< 1 J =X (2 ) 

HIST 

119 

60 

IF (Y(l».CT.O.) CALL P L C T ( X , Y , 2 , 4H J 

HIST 

12 5 


call FKN^CV 

HIST 

121 


FSTURn 

HIST 

122 

6a 

TTt ( 6 . IC03> 

HIST 

123 


Torn 

HIST 

12A 

75 

FkINT ICO 

HIST 

12S 


F C T L F N 

HIST 

126 

ICC 

I-uAMAl(lh ,• INSU^^F ICIENT DATA F^r? A MEAraiNGFUL HISTOGRAM*) 

HIST 

12? 

151 

FOkMAT (lb ,3:X,A6t 11X,F1C,4,10>,1 

HIST 

123 

1C2 

FjRMATIlh « 30X, At, 1 IX , F 1 C .4 , 10 X, I 31 

HIST 

12C 

103 

FuAM AT (lbl,27X,‘ STATION NAMc ' , iXt 'PcS IDUAL VALUc ' *6X » » COUNT • « // ) 

HIST 

1 3C 


FUkM AT (lhl,27X,'STATirN NAMc'iCX, 'RES IDUAL VALUE « »»Xt 'COUNT » * OX t 

HIST 

I 31 


t »CONT iNue C* »//) 

HIST 

132 

155 

FORM AT(lbl#27X,* STATION 'RATIO VALU£»,6X»*CCUNT**//') 

MIST 

2 33 

tOo 

F JKM AT ( 1 b 1 , 27X , » STA T I UN NAMC * , 8X, 'RATIO VALUE *«jX»*C0UNT*»6Xi 

HIST 

2 3A 


• •coNTiNuec ,//> 

HIST 

2 35 

ICCO 

FuKMAT(lbJ*2 = X, 'HISTOGRAM CATA',//,2CX,» INTERVAL * i6X. 'FREQUENCY* 

i/HlST 

2 36 


• /) 

MI ST 

13? 

1 00 1 

bClMM AT (lb ♦ISX4*?n.l.2X.*Tn'.2X4p«.l .JCX.Fj.l) 

HIST 

136 

1002 

bOP***T(lb -/ / , 1 Av , • Tnr *^0» QF bTO, poiMTci & i,TAl 

HI «AT 

1 3Q 

1303 

F0RMAT(lb t///t5X.*THE RATIO TC SIGMA VALUES ARE ALL ZERO* NO PLOHIST 

140 


• T CAN^ 8£ FADE « ' ) 

HIST 

141 


End 

HIST 

142 
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DESCRIPTION 

NEWMM is a simple program utilizing WOLF PLOT 
PACKAGE routines to determine maximum and minimum values 
for either all or part o£ a specified array. 
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NAr'c NEwMM ^ 

PUPPOSt FIND TMH maxIvum AND MINIMUM VALUES IN AN ARRAY FOR 

SPECIFIcC STAT10^S 

calling SECUkhCE CALL NE W F V { NAM E , ^ RR A I , I 3T AR T , I £ND • RWA X , HM I N ) 


SYKDOL 

TYPE 

DESCR IPT ICN 


NAME 

OF 

INPUT - 

NAME OF 

STATION 

APMAl 

<4COC) 

K 

INPUT - 

ARRAY TO 

BE SEARCHED 

i START 

I 

INPUT - 

INDEX OF 

STARTING VALUE IN ARRAY 

lENO 

I 

INPUT - 

INDEX OF 

ENDING VALUE IN ARRAY 

R MAX 

R 

OUTPUT 

- MAXIMUM 

VALUE 

KFIN 

R 

OUTPUT 

- MINIMUM 

value 

SUbnCUTINcS USED 

NONE 



CCf>MLN bLUCKS 

ARRAY 

LOGIC 


i nPuT r i lE 

b 

N<Din£ 



OUTPUT F lL.cS 

NONE 



RESTRICT IONS 

NONE 



REf fcRcNCES 


NONE 




SVSf*tJUTI^£ N£V«MM (N AME , APR AI , I START , I uND #RMAX , RMI N) NEWM 

COUULE PRtCISION ELEV *FTYP£ tNAM£ .NAMEST NEWM 

COMMON /APRAY / IYMD(4CCO ) . ) . SEC( 40CD) f ELEV( AOCO ) . N£WM 

* RES ID< 4C0 C I COT (<1. JC C) t 1 COUNT! 4000 ) »NAMEST ( 4C DC » t NE WM 

• FTYPE ( 14 ) .R AT I C ( 4C : 3 ) NE»^M 

COMMON /LCGIC / L AS T I M . S W I TC H NZWM 

LOGICAL LASTIM NEWM 

OIMENSICK ARRA1C4C00) ^ ^ N£WM 

RMAX = AKHA I ( I START) * * KEWM 

KMlN = PMA)i NEWM 

C TEST IF EjtGIhMNG AND ENOlNG INDICES ARE DIFFERENT KEVM 

|F( 1 START .EQ. IdNDJRETURN NEWM 

DO 10 Is I ST ART , I END N£WM 

C SEARCH ARRAY FOR. STATION NAVE . NEWM 

IF ( * NOT , L AST 1 V • AND . NAM eST ( I ) .NE*NAME ) GO TO K NEh’M 

C FIND MAXIMUM NE)kM 

RMAX = A VAX 1 (RMAX . ARR AI ( 1 ) } NEWM 

C FI^D MINIMUM NEWM 


39 

39 

40 
4 I 

42 

43 

44 

45 
4.5 
47 
43 
49 
5C 

51 

52 

53 

D4 

55 
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KMINsAMiK [N,AMP AI < I ) ) 

1C CONT iNUc: 

KETUnN 

LKL> 


hEwM 

56 

N£WM 

S*' 

NuWM 

art 

K2WM 



/ 
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DESCRIPTION 

PLOTER is the drive program for the WOLF PLOT 
PACKAGE which produces the plots o£ residuals vs. time 
or measurement rate vs. residuals if either are re- 
quested . 
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REPRODUCIBILnY OP THE 
ORIGINAL PAG^E IS POOR 


i 

j 


NAI'c 

* PUfiPCau 

calling; Sfc.OUt:^CI 
TYf£ 

IPASS I 

I STOP , I 
MM I 

ISAVc I 

SUEhLOTiNcS l£EO 

COMMLN dLOCK 
INPUT PILES 
■OUTPUT P ILES 
RESTF<ICT IONS 
references 


PLOTER , ' 

PLOTS RcSICUALS VS. TIMS ANO MEASUREMENT RATE VS* 

residuals fca' specified passes 

CALL PLOTCR { I P A 5 S . I STOP . M M , NA ME » I SAVE) 

DESCRIPTICN 

INPUT - INDEX OF STArJTING POINT 
INPUT - INDEX OF ENDING PCINT 
INPUT • NUMDEF OF POINTS IN PASS 
INPUT - INDEX Or TYPE OF DATA 

edit ENDPLT Ki^MADV HQRLIN MAXMIN 

MINT OGRID PLOTS! PTYNUM VcRLIN 

ARRAY 

NONE 

NONE 

NONE 

NONE 


SUbROUTiNt PLOTERI I PAS S« 1 STOP. VM , name , I SAVE ) PLOT 

OOU&Lt PRECISION ELEV , FTYPE « NAMEST. TITLEO) i TYPE PLOT 

REALMS NAP^c PLOT 

COMMON /ARRAY / I Y M c ( 4 C C 0 ) . I HM ( A D C : } . SEC ( AO 00 ) .ELEV ( 4CC0 I • PLOT 

• RESIOI ACC C) . 03 COT ( 40CO > . ICOUNTI 4C 00 ) .NAMESTI 40C? > . PLOT 

, FTYPEI lA ) ,PAT I C{ 4000 ) PLOT 

CIMENSICN FMIN(400C) PLOT 

REAL MRMAX* VfiMlS PLOT 

EATA TITLE/oH * tH *5H RESIDUA. DHLS ' • PLOT 

• 6H DATE *6H .6H TIME , 3H / PLOT 

SO FCRMATIEOF insufficient DATA IF THIS PASS FOR A MEANINGFUL PLOT) PLOT 

C TEST IF ENCUCF DATA PLOT 

If (NM.LT .* ) GC TO 4C PLOT 

TYP£aFTYF£( ISAVE) PLOT 

c FOF-H TIME ARRAY AND FIND MAXIMUM ANDMINIMUM TIMES PLOT 

IVMDl = I Y Ft ( I PASS > PLOT 

IhMl = 1 HM ( IPASS ) PLOT 

bMlN= IMM ( IPASS )- IHM { I PASS )/l00*40 PLOT 

• 00 1C 1= IFASS. ISTQP PLOT 

fMlN(l) = FiCAT<lHM(lJ-lHM(n/l0C*'4C)~ilMIN+SSC(I)/60* PLOT 

10 IF(r HIN( I J .LT .C . ) F M I N { 1 ) =P M I N < 1 ) ♦ I 4 4 0 PLOT 


35 

36 

37 
36 
39 
AC 

41 

42 

43 
A4 
AS 

46 

47 
46 

49 

50 

51 

52 

53 

54 

55 
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J=ISToP- If A3S-M 

call maxw jn( r V in { ip as s ) . j « sv I n ,sma<> 

Cauu PTYM.M ( SMI N »5‘-' ax . SM I K, S'-^A > , NX ) 

KS>AVc= IPASS 

FIND VAAl*;u-1 XNw MINIMUM values ANC ^OJNO 

call NcW.»<NlNAMc.PTSIO.IPASS»ISTUP«.-C-UX,KMtN) 

CALL P r Y^LM( P V I N ,kM AX « PM I N » PMA >, Nr ) , 

P^U^^ riTLt. A^D GKIU FOP PSSICUAL VS* TIME PLOTS 
TI TL E< I > =hA 'c 
T ITlc1( £ >- 1Y»;:. 

CAuL oUfMC( 5i-1 IN, SMAX , N X, 5HFA . I ) « 1 , .1 MI N , R M AX , NY , 3HF6 • 1 } • 1 
call tU I 1 < IYMC I , 3HI c ) « T I TL-: ( •]. ) ,P ) 
call C.D 1 T ( IHM I* SHI 6 > , T I TL t( e » , P ) 

CALL HCHL 1N{ T ITL£, 6 A ,5 1 a , 1C r C) 

CALL HCihL IM I 5HT I MS IN M I NU TE S . 1 5 . 5 I 2 *C ) 

. IFIMOU ( 1 SfVE * 7) ,LC * 1 ) 

y.CALL ve«L lN(2<5HPi£SI CUALS IN ARC SEC C NOS . 2 A . 1 , 5 1 2 ) 

' IF( I SAVE .ea . 2 ) CALL VEkLInI 19HPJ3I0UAL5 IN M£TFHS,IC>, 
IF( 1 SAVc. « £0* J I CALL V EKL I N (3 I H-iS S I UUALS IN CENTIMKTi 

• 31 *C lb I c ) 

PLCT RLSIOUAL V3 . TIME 
CO 5 I s I F/SS . ISTUP 
IF(NA-lc*Nfc.NAVCST( I n GO TO S 
CALL PLUT (FM IM I } ,R£SI C( I )» U4F 
S ClNTIiNUE 

CAwL FRMaCV 

F1M> MAXIMUM fNC MINIMUM VALUtO aNu hCJNO 

CALL NhWW M NAME , J3D0T , IFASS, I S 1 JH , -tHMAX »M-<M t N » 

call PTY^C^'<MRMIN.MKMAX^MftMIN,^PMAX*NX) 

PRINT TITLE A^J GRID FOR MSASUkEMcNT PATj; VS* RESIDUAL 

CALL UGR1C(MRMIN,MPMAX,KX.5HF7«0} *1 >RMIN,PMAX|NY«5HFS»1) 
CALL HCRLlNd ITLE* 6A,Sl2.KCC) 

CO TO ( 1 I , 12 . 13. 1C, I s, u, 17, I 8 ,13.1 3 « 18 .22.23*24 )• I SAVE 

11 CALL HCRLINIIIHBT ASC R A T E , I I , £ I 2 , 3 ) 

00 TO 2b 

12 CALL HCRL 1N( ICHRANGE R AT E . I C . 5 12 . r J 
CO TO 25 

13 CALL HCALINCIIHR RATE R AT E , I I , £ 1 2 . 0 ) 

GO *T0 25 

14 CALL HCfiL INC I 4HFRE0UENCY RA T E , 14 , 5 1 2 . 0 ) 

CO TO 25 

15 CALL HCRL INC lOHALPHA R ATE . 1 0 ♦ 5 1 2 . C ) 

OU TO 25 

16 CALL HCRLINC12HX ANGLE P A TE , 1 2 *5 ! 2 « 0 > 

CO TO 25 

17 CALL HCRL INC I IHAZMUTH RAT E » 1 1 * £ 1 2 , 0 ) 

GO TO 25 

16 CALL HCRL INC 16H0ECL INATION RA T E • I 6 * 5 1 2 • C ) 

GO TO 2o 

22 CALL HCRL INC 9HbfTA RATE, 9, 512,0 

GO TO 25 • 

23 CALL HCRLINC12HY ANGLE R A TE * 1 2 , 3 I 2 , 0 ) 

CO TO 2o 

24 CALL ML’kL INC I AHELFVAT ICN P ATE , 1 4 * £ I 2 , 0 ) 

25 IF(MOU<I£AvE,7).La.n 

• CALL V tKL INC 24HRES I CUALS IN ARC SECON DS , 2 4 , 0 . 5 I 2 ) 


0.512) 


• 1.9) 


Plot 

3fc 

PLOT 

57 

PLOT 

5? 

PLOT 

SO 

PLOT 

6? 

PLOT 

61 

PLOT 

62 

PLOT 

t; J 

■ PLOT 

64 

PLOT 

63 

PLOT 

c 5 

PLOT 

6? 

PLOT 

63 

PLOT 

69 

PLOT 

70 

PLOT 

7 1 

PLOT 

72 

PLOT 

73 

D. PLOT 

?A 

PLOT 

75 

PLCT 

76 

PLOT 

ff 

PLOT 

76 

PLOT 

•'9 

PLOT 

39 

PLOT 

81 

. PLOT 

32 

PLOT 

53 

PLOT 

H4 

PLOT 

35 

PLOT 

6b 

PLOT 

37 

PLOT 

68 

PLOT 

e9 

PLOT 

90 

PLOT 

91 

PLOT 

92 

PLOT 

93 

PLOT 

94 

PLOT 

95 

PLOT 

96 

PLOT 

97 

PLOT 

98 

PLOT 

09 

PLOT 

109 

PLOT 

101 

PLOT 

102 

PLOT 

103 

PLOT 

IC4 

PLOT 

105 

PLOT 

106 

PLOT 

107 

PLOT 

103 

PLOT 

1 09 

PLOT 

lie 

PLOT 

1 1 1 
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IF( 1 SA V~ 2 ) CALL VLRL I N ( 1 i I OU AL 5 

IFt I S»AVi .£0. J ) CALL VLFL IN (31 HkCSIDUALS 

• 3 1 t C • ^ I 2 I 

, CL 3C IslFASS.ISTOr’ 

C PLcl KcbIDLAL£ VS. MHASU^i^MENT RATE 
IF ( NmM tl. KE . NAf/cST ( I ) ) CC TO 3^ 
call PLOT{OuDOT(I),RcSID<I)«l,.4H *1 
2v CCnTINUE 

CALL FRMACV 
Gl to c 0 
A"? FKlM iO 

lno 


IN M:.Tc;-:S. 19 . ■? . 01 2 ) PLOT 

IN C'ONT I METERS/SECCND. PLOT 

PLOT 

PLOT 

PLOT 

PLOT 

PLOT 

PLOT 

PLOT 

PLOT 

PLOT 

PLOT 

PLOT 


1 12 
1 1 3 
114 
1 1 
I IP 
I IT 
llA 
119 
12^" 
121 
122 

123 

124 
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DESCRIPTION 

REGANL is the analysis subroutine of the GEORGE 
PROGRAM. It uses a least squares method to determine 
zero set measurement biases and timing errors for each 
pass of data. REGANL also computes standard deviations 
of the errors and the noise about the fitted line. 

Finally it performs a randomness test of the results. 

If data is to be edited, REGANL uses the results 
of its computations to eliminate points above a specified 
rejection criterion and re-computes all of the results. 
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/>■ 1 

j 

NAKi. RtGANL 


PUAMCSt 

CALLING Si-QUbNC-I 
SYMslUL TYPc 
IPASS 1 

IPASS2 I 

nam; op 

k:m I 

SLthCUTiNLS LScD 
CCKMCN 3LGCKS 
INPUT FILLS 
OUTPUT FILL 
flE ^ T f'2 ! C r ! U ^!S 


pe«rof?i''iS THL r“Gf;f.;sssjN analysis 

PAKc.S A RANCCWNLSS TJ3T ANO CJM^UT-IS 

ZERO SET AND TIMING iR?<OP’S.IN PASSES OF DATA - 

CALL RuGANL ( I pas S* I PA3S2i name f mm > 

DESCR IPT IGN 

INPUT - INGEX OF nEGlNNING POINT IN ARRAY 

INPUT - INDtX OF END POINT IN ARRAY 

INPUT STATION NAME 

INPUT - NUMBER OF POINTS IN PASS 

NSNF. 

ARRAY CCONST 

NONE 

PRINTER 

jiinMit 


REf LKL nCES 


NONE 


SUiiROUTINE REGANL ( I PA £S . 1 P AS S 2 , N A Me , MM ) 

21^?.7 FORM AT ( 1 h I I 1 oh STATION NAME .A6// 

* 16H DATE OF PASS ♦16/ 

¥ IGh TIME OF PASS .15/) 

2TC53 format ( ll-C.S IH TIME CF DATA McAS.RATE RESIDUAL 

2 ** P *• » FO K M A T ( 1 F , I X , 1 6 , 1 X . I A » I X , F A- , 1 , F 1 A , A . F 1 G . 1 ♦ F 1 G • I ) 

2**!:iC FORMATdH .GlH YYmmoD FhMM SS.S (MTR/SEC) (METERS) 

2C*I1 FOKf-.AT(lF .SIH YYMMDD HIU'M SS.S (CM/SEC/SEC) (CM/5EC) 

2^'M2 FORMAT (Ih , S I hVY M’-T D HUMM SS.S ( \PC SEC/SEC) (ARC SECS) 
2501J FORMAT ( I h C . J' H /E«0 SET ERROR ESTIMATE =.F10*1.09M 

♦DuVIATICN OF THE ESTIMATE =.Fir«l/ 

¥ 31H TIMING F.RFGR E S T 1 M AT E ( S EC S I 

♦ DEVIATICN CF THL ESTH'ATE =,FJ0.6/ 


=♦ FIO.A ,39H 


¥ 3GH 
F 6>»H 
♦SUUARE// 

♦ 2 ; H 

♦ 2vH 

♦ 2: H 


31H NOISE AbOUT ThE FITTED LINI 
ANALYSIS C’F variance./ 

SOURCE SUM OF SQUARES 


=.ri9.2// 


OF 


AZGRFSS ION 
RES I DUAL 
TOTAL 


♦ FI n. 2 . 1 1 ?. r 1 •■). ?/ 

♦ FI S. 2 1 1 I 2, I f!. ?.// 

♦ r uu 2 . 1 1 ? ) 


20C I A 
2' ‘5 I 6 


format ( if.c..i:h insufficient data i pass 


) 


)ORMAr(lh .13H ANAIYSIS OF ,A6,I0M RESIDUALS) 


RECA 

RECA 

RECA 

RECA 

ELEVATI ON) REGA 
REGA 

(DEGREES) )RKGA 
( DilGREF S ) ) P'.GA 
(DEGREES) )REGA 
STANDARD REGA 
RECA 

STANDARD REGA 
PLCA 
REGA 
RECA 
MEAN REGA 
RECA 
RECA 
RECA 
REGA 
REGA 
RECA 


3 A 
35 
3( 
37 
3C 
39 
A/ 
Al 
42 
A3 
A 4 
A3 
A 6 
A7 
A3 
A9 
5C 

51 

52 
5 3 

5A 

55 
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"Id H at ( 1 hi. , 3 1 h NOISu AtCUT THC L I Nr! I 3 >>AN3nM/ 


RECA 

fi 6 

V KAk;)OM NOt-^•AL C^VlMr -»GI3«3) 


RrT.A 

?■/ 

1 T A r ( 1 h C 1 A Th NO I S c AOCUT TH£ LlNI IS S 1 OS I T 1 C AN TL Y 

NON RANDOM/ 

ni oA 

{>r. 

r 2SH RANOOM NOfA-AL LdVIATE; 


RIGA 

sc 

eou-l AT ( i h 1 » i 1 1 - RFJiiCTrD 

POINTS 

) REGA 

6 " 

wOUciLe PncCISlMN . CUHV .FTVFE . NAMc .NAME5T ,TYPc 

RuCA 

61 

C>iJOO LC PKi;CISICN KSTAfNCT 


r*:ga 

C'Z 

CCi:'lMJN />1RPAY / 1 Y 0 ( T C " C } . I HM ( A ■: * * 1 . 3^ C < A'* <“ T ) , £ L f V ( A 

'^'C ) 4 

ntCA 

63 

• r::s io( ^ » viri cot (.. .'c ‘ ) , i count t vt: o ) . 

NA ME ST ( 4"^ ) 

4 REGA 

r>.\ 

• FTYf»r. ( i* ) at r c ) 


REGA 

65 

COiMiMOiS/C CCN5T/NF T , T YP » KS T A 4 A , L- . I S A Vc . R C J i-'CT « R E J SV/ 


REGA 

66 

ulMrNDlON ICHCCK(5' ) 


RFGA 

A7 

L uG ICAL PCJ5i»i 


RFGA 

62 

I NIT I AO 1 V A f' I i-sLES 


REGA 

60 

IFLAG-^ 


RL-GA 

7'^ 

21 SIOXs ; « ) 


REG A 

71 

UU 1 c J I = 1 t 'i ^ 


REGA 

72 

K;i lCM:.CK(i) - 0 


REGA 

73 

SIGY i 0*C 


REGA 

7f 

SIGXY s 


REGA 

73 

SICXSO = C.’ 


REGA 

76 

SIGY3U = C*f. 


REGA 

77 

VM - 0 


REGA 

7 a 

MMI»& 


REGA 

•79 

SICX1~0*0 


RECA 

O'*- 

S t GY ] ~ G « C 


REGA 

a 1 

SlGXYl -^*C 


RFGA 

02 

SIGXSl=G.C 


r:-:ga 

^-3 

SlGYSl kC ,C 


RE CA 

6A 

Ks I SAVL+ IhCAO*? 


RECA , 

05 

PRINT Me AD INC 


m-CA 

8C 

PkI NT 2GCC7i NAMF , I YMO( I F A SS ) . I FM ( 1 P ASS > 


RECA 

B7 

PRINT 2C C IS.rTYPeiK > 


REGA 

oe 

PRINT 20CC0 


REGA 

BO 

GO TO ( 1 4 < . 3 1 4 , A 4 1 ♦ 1 ) , ISAVS 


RECA 

or 

1 PRINT 2CCI2 


REGA 

91 

CU TO 4 


RECA 

. 92 

2 PRINT 2CC 10 


REGA 

03 

GO .TO 4 


REGA 

9A 

3 PRINT 20C 11 


REGA 

05 

4 CJNTlNUc 


REGA 

96 

DU 26 Ls 1PAS« 4 1 PASS2 


re:ga 

97 

IF(NAMcST(L I.KC.NAML) GO TO 2€ 


REGA 

06 

LU = L 


RECA 

90 

1F( I PL AG.fiO. 1 > LL = LU + 2CCC 


REGA 

10^ 

IF ( ISAVc .CQ. 3) 0':ID0T(LL1 = Cl 3 COT ( LL) » 1 TO . 0 


REGA 

1 *"! 

IF { 1 SAVc »^0 . 1 4 OR. I SAVfctEO. 7)OnOOT( lL) = UBOOT(LLJ tC. l296f-:7/6. 2331 05REGA 

102 

MM = M F ♦ 1 


REGA 

103 

SUM Ul£ RATcS. RESIOOALSi THE IR PRCOUCT5 AND THEIR SOLARCS 

REGA 

104 

SIGX = SICX + (JtiDOVILL) 


REGA 

1C5 

SICY = SICY + RcSlOU.l 1 


REGA 

106 

SIGXY = SIC.xV i tiODOT ( l.L ) *kCS 1 r. ( LL) 

‘ 

REGA 

H 7 

SI OX SO - Sir.YSC + UMOOTlLl)^*2 


REGA 

loe 

SIGYSO = iJGYSC * i;tS I C(LL » '^v2 


RFC A 

HO 

PKI NT 20C' 9 4 I YP.On. ) 4 1 L) 4 Si C ( L ) 4 JUDOT ( LLl t RE S I 0 ( LL) » tUf. V ( L ) 

REGA 

1 10 

Zb CUNTlNOc 


REGA 

1 1 1 
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34 C=rLCAT( WW+MMl) 


j 

PEGA 

112 

IFuAG^l » 0 



REGA 

1 1 3 

TUL'T F0« MuRi' THAN TwO POlNffi 



REGA 

11 A 

i 1- ( ( M.M ♦ ^ V n » L T . n PRINT ? ' 0 I 4 



r::ca 

1 5 

ir ( .LT43) r'=:tukn 



RIGA 

1 ’ 6 

CCF.PLT=; TIMINC ‘ RROR 



PEGA 

1 1? 

VAY=t SI GXY*S:GXY1-(SIGX+SICX! )* {SlGY+3 

IGYl >/C 

REGA 

1 i ^ 

VX= SIGXSC-^^tOXSl-ISIGXtSlGXl )* 

*2/C 


P£GA 

1 9 

VV = S IGYSC tSIGYSl-ISIGY+SIGYl *2/C 


REGA 

12' 

e=VXY/ YX 



RCGA 

12 1 

CCMPGTs. i:cKJ SIT 



KCCiA 

122 

As(( SI GY *S IGY n-B*( SI GX + SIGXl ) 

)/C 


PEGA 

1 23 

H;;G5S= VX Y-»VXY/VX 



RFGA 

129 

CCMPUTh Ths; KcGuf-SSION M = AN 



plca 

125 

Ht_S = VY-ReCSS 



R£GA 

125 

f.VXk JsRCS/ (C- 1 ) 



REGA 

177 

CO.VHGTS. STANC/.'F> CF-VIATIQNS 



RECA 

126. 

.k»IxaSusoGfiTn^VAR«(SlGXSQ + SIGX5 1)/(C*VX)) 

RCGA 

129 

E«T1M = SCRT{RVAP/VX) 



rega 

1 39 

ll ^ i 



REGA 

13 1 

JJ » FM+ MM I -2 



RrCA 

132 

NN = MM MMl - 1 



rCGA 

1 33 

COMf»UTL TME NCir.C ALiOUT THE FITTED 

LINE 


REGA 

1 3< 

0 s SUKT ( RVAW } 



P£GA 

135 

KuSMS = RbS /( C-1 , C ) 



REGA 

1 36 

PRINT SUMMARY TAULl' AT EMO Dr EACH 

analysis 

REGA 

137 

PKlN T 2l w 13 ♦ A ,H I ASSD.H .EK T1 M » 0 

• Kli G‘.3, 

1 1 .RECiSStPES 

# JJtRE SMS, VYiNN REGA 

1 3£ 

IF ( f MMf M M 1 ) *1. T« 1 C )GD TO 35 . 



REGA 

13C 

DSU~ V • 0 



RECA 

14'‘ 

K=IPaS52-1 



REGA 

14 1 

CO 32 LslFASS.K 



PEGA 

192 

1F(NAMEST (L) . NE.NAME ) GO TO 32 



RtGA 

19 3 

LLSL 



REGA 

1 At 

1F( IFLAG*En* 1 ) LL^LL+2CC0 



REGA 

JfeS 

ClsRCS lU ( LU )-A-r*OL’ OOT (LL ) 



REGA 

196 

C2 = ^eS ID ( LLf 1 )-A-0* OOOCT ( LL ) 



REGA 

197 

CSO=OSU+ ( C 1-D 2) ♦ *2 



REGA 

i*e 

32 CONTINUE 



-PCCA 

199 

CSQ=OSO/(C-l .<*) 



REGA 

15*“ 

PERFUxM RANJCMNt.SS TEST 



REGA 

151 

RNU = ( C SQ/( 2. ARV AR ) - 1 . r ) /( S CRT ( ( C- 

a.o )/(c+c- i *c j 

» > REGA 

15 2 

IF ( AoS(ANO) ,LT .2.5 JJPRINT 2CC> 

16 , RND 


REGA 

153 

IF (AJSIRN0).GT.2.5<?»PRINT 2C017.RND 


REGA 

I 5<- 

3S CUNT INUE 



REGA 

1 55 

TEST RLJr.CTICN VALUE 

s 


REGA 

156 

JF( .N.JT . PE JSV^ )GO TO 30 



REGA 

157 

SIOXI-O.C 

• 


REGA 

156 

SIOY1=U.O 



REGA 

169 

SICXYl=j.C 



RCGA 

1 69 

SlGXSl =9 .C 



REGA 

161 

SIGYSI=04C 



REGA 

162 

P.Ml -C .0 

4 


REGA 

16 3 




REGA 

1 Ot- 

CO 3 3 L= I PASS, I PASS 2 



RCGA 

16 5 

IFINAMtST (L) .NE.NAMF) CO TO 33 



RCGA 

166 

LL=L 



REGA 

167 
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- ( IFL A« • til. 1 ) LL = LU4-^ 

DiPr SKC.3 1 C ( LL ) - Juf^CJTC LL) 

C T^jT Ak.Cv.PTAl: ILI TY (JF PCUMT 

Ir ( AJa < O J FF ) • LT .Pu JcCT ) GC TO 33 

K=KFi 

IF" ( K «GT . I ) C(i TO 1 A 
C PPI.NT hr. AOINGS 
naiNT 

PPlNT 2v CC3 

GO T J( I X « 12. I 3* 1 A, I A, 1 1 « I 1) f IS AVE 
1 I PkI NT 2 .C 12 
GO TJ 14 

12 PHlNT 

GU TO 14 

1 3 PHINT it C 1 I 

14 CONTINUE 

IF* ( lCHfcGK(K) .NE.LL) 1FLAG2 ~l 
ICH^CK(K) s LL 

c ppiwT TAbuc CF !^c j:£ctf.:} values 

P*'<1N? C?9 . I YN-n{ L > , I Hf/( L) .SEC<L> » OHDQTCLL ) tRSSID(LL) .EL':V<L) 

SlG)UaSlGXl-UrOOT(LL) 

SIOYI®SlCYl-REf. IO{LL) 

SIOXYI *3 1 CXYl-ti^DOT (LD^RFS ID( LL) 

SIoXSlsSICXSl-ChDHT (LL>**2 
SlCYSlsSlGYSl-RSSrO(LL)i‘*? 

.■^:4 CflNTINIlF 
T t N u ^ 

IF <K.GT**r . AND. IFL AG2 *&-0 .1 > GC TO 34 
1F( I SAVE .KC. 1 .AND. I SAVF.Nfc. 7> RETURN 
IFC'IFL AG «£0« 1 } KCrURN 
JFLAG= 1 

GO TO 31 . 

ENl> 


RFC A ICF. 
PLGA lAF 
PFGA 17“ 
nrcA iTi 
fiC GA 1*"? 
RCGA 173 
REGA 17^ 
REGA 175 
REGA l-»6 
REGA 1^7 
RFGA 17f' 
REGA 
REGA U'.r 
PC GA IF 1 
RCCA IF2 
REGA IF 3 
RFGA ir./ 
REGA IftS 
RfiCA 13? 
REGA ja? 
RtGA le?! 
RFGA U'T 
REGA 10'’ 
REIGA 101 
REGA 192 
REGA K3 
REGA 

or r.A 1 nr. 
REGA 1C6 
REGA 1Q7 
REGA l^e 
RCCA 199 

REGA ?rc 

REGA ?91 
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RYMDI 


DESCRIPTION 


(See EPHEMERIS TAPE GENERATOR) 
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1.1.3 GROUNDTRACK 


INTRODUCTION 

GROUNDTRACK provides geometric insights into GEODYN 
results by plotting the satellite groundtrack for each pass 
over a particular station. 

The main routine GROUNDTRACK controls the type of ■ 
plot (groundtrack only or groundtrack with land plots) , 
fixes' the size of the grid, reads the data required for 
the groundtrack requested, and makes the required calls 
to the Plot Package. 

( 

The subroutine CENTER centers the station position 
on the plotting grid. The subroutine LAND finds the re- 
quired data in the WRLMAP block -data to plot the land 
masses on the grid. WRLMAP is part of the Plot Package, 

The subroutine DATIME converts minutes into days, 
hours 'and minutes . The subroutine ADDYMD is a member 
of-GEODYN; DIFTIM is the same as subroutine DIFF in 
GEODYN; RYHDI is in GEORGE. 

This program requires a minimum of 500K bytes of 
memory and uses as input one 9-track tape. 
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SUBROUTINE CROSS REFERENCE CHART 


/ 

j 


CALLING ROUTINES 


• 

MAIN 

CENTER 

LAND 

ADDYMD 

m 



CENTER 

o 



COORD 

m 



DATIME 

o 



DIFTIM 

o 



EDIT 

o 



ENDPLT 

© 



GRID 

o 



HORLIN 

© 



LAND 

o 



MAXMIN 



IB 

PLOT 

m 

IH 

o 

PTYNUWl 

G 



RYMDl 

O 



VERLIN 

o 
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MAIN-GROUNDTRACK 

i 


DESCRIPTION 

The. main program GROUNDTRACK reads and separates 
satellite ephemeris data into passes by station and 
determines from the GROUNDTR.\CK INPUT CARDS which 
data is to be plotted. 

GROUNDTRACK calls CENTER to center the station 
position on the grid. If requested it calls LAND to det- 
ermine the land masses on the grid. Finally it calls 
the PLOT PACKAGE routines to make the plots. 
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RmODUClBlLlW OP MB 

- - tr poor 

jS J 

/ 


KAMt: 


►■AIN - GPLUNDTJ^ACK 


plots' SA TtLLi TE G:^OUNl>TRACKS FJr< A SPcCIFIcO 
STATION 


SUcRuOT lNi£S 


LicC ACOYMO 
RYMDI 


CtNTtR DATIME OIFTIM LAND 


eC^MCN BLOCKS 
INPUT MLcS 

ULTHCT FILE 
RESTRICT IONS 
RSFCRcNCcd 


N JNc 

GPOUNOTPACK INPUT CARDS 
GROUNOTRACK TAPS 

5 _ printer 

maximum CF CNE STATIJN PcR PLOT 
NONE 


5 


OIMLNS lUK 1ST AMC ( 1 C ) t 1 5C ) . niME( SC ) . IPLDAYU “50 ) 

LIME NS Ii.K IM I N{ 7 C-C ) ,L YMO ( 70 C 5 ),LHN( 7000 J 

tlMcNS STALAT { I '5 > , STALONI 1 0 ), VALUE I 6 ) . S AT L AT ( 7CC 0 1 i 


• SAlLONlTCvylfSATH^ 70CO > 

uFliUPTlON(S) iLAST »END»eLANK»STANAM( 10 ) 
DATA OPT ICN/ ' PLOTS '»'TIME ' '• » GRD 3 £ T » i » LNDPLT 
CATA LaSI «EiLANK/*LAST ».* •/ 

CATA cND/th£NC / 

LOolCAL#! FT(21)/'FRCM TO •/ 

logical* 1 F I XGPO. PLOT IN. T IME IN .LANOPT .PRIME 

CONT iNUc 
F I XGKUs:. F /LSE . 

. LANuPT s , f ^LSc . 

plot 1N= . f /lse • 


NAMc(?0CD). EXTRAS 

.•data •/ 


TlMElN=.F/LSE • 


IUATA =0 

NSTA =0 

C READ IN STATICN position CAROS 

10 RcAU(S.lCCO) STANAM (NSTA+ n . 1 STANO(NSTA*-l ) 
, STAL0N(NSTA+ IJ 

IF( STANAN (N5T A* 1 ) .SO .cNO) GO TC AQ 
NSTAsNSTA^l 


STALAT{NSTA+1 ) • 


CO TO IC 

c READ OPTILNAL G^OUNDTRACK INPUT CAROS 
AO RtAL< 3 . 1 CCe) CPT, value 
DO 32 1 - 1.5 

IFCuPT .Nc .opt ion { 1 J ) CC TO 32 
CO TO ( ’ ^ . 2 V • • 37 , A6 ) » 1 

32 CONT INLL 
C ERRONEJUS 1NP«.T CARO 
*RITE( c . ICC.'} ) OPT 
CO TO AC 

c sei SWITCH FCF SCAP 20 TAPS 


CRN! 

23 

GRNT 

2A 

GRNT 

25 

grnt 

26 

CriNT 

27 

GRNT 

29 

CRNT 

20 

grnt 

SO 

CRNT • 

31 

gpnt 

32 

GRNT 

33 

GRNT 

3A 

GRNT 

35 

GRNT 

36 

GRNT 

37 

CRNT 

33 

CRNT 

30 

GRNT 

AO 

GRNT 

A1 

GRNT 

42 

CRNT 

A3 

GRNT 

AA 

CRNT 

AS 

GRNT 

A6 

GRNT 

A 7 

GRNT 

Ad 

CRNT 

A9 

CRNT 


GRNT 

51 

GF NT 

52 

GRNT 

SJ 

GRNT 

5A 

CRNT 

55 
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i 


j 



33 

CUNT iNUc 

CRNT 

5n 



flutin=«truc» 

6Rr«T 

57 



l4s2C=4 

GTNT 

f A 



IM VALOc { 1) . GT.C . ) lAOaCsC 

CRNT 




00 T O 40 

CRNT 

6? 

c 

Sr-T 

TI.Mt PARAVETcKS FOR A DATA PERIOD REQUESTED 

GRNT 

61 


3A 

UONT iNUd 

CRNT 

o2 



.TlMEiN-«Tf-UT* 

Gf’NT 

63 



IYMl- STsV ALUc. ( 1 ) + . 5 

CPr^T 

64 



NHM3T = VALLE C 2 J ♦ . 5 

GRNT 

65 



I YMC EN = VALUE(2)+.5 

CRNT 

66 



hHMLN=VALLc( A 

GRNT 

.67 



GO TO 40 

GRNT 

63 

c 

sex 

GKIO PARA^ETEFS FOR A FlXLO GRID ’ 

CRNT 

69 


36 

flXO^U—tlFUf* 

CRNT 

7-: 



SAIL Nl sVALOE ( 1» 

GRNT 

7 1 



SATU -lasVALOc. ( 2) 

CRNT 

72 



INTY = VALL6( 3 > 

GRNT 

73 



fcATUT l=VALUE ( 4) 

CRNT 

74 



SATLT2*VAuU«( 5) 

CRNT 

75 



JNTX = VAH.6(6) 

GRNT 

76 



CO TO 40 

CRNT 

77 

c 

SST 

wUkLD KAF CRT ION 

CRNT 

7S 


37 

CCNT INUE 

CRNT 

ro 



LANOPT-*TFUE* 

CRNT 

SO 



CALL kFLMAP 

GRNT 

8 1 



CO TO 40 

GRNT 

82 


•»6 

CUiN 1 iNUC 

CRNT 

S3 



CALL • plot ST 1 1 AC 20 • • TRUE • ) 

CRNT 

84 



CALL FRMACV 

CRNT 

33 



WRlTc(c,K07) STANAM(nSTA) 

GRNT 

Zb 



IFILANUPT) wRITE(6.1Cll) 

GRNT 

67 



IF( = IXGRC) wR ITii ( 6 , IC 1 2 » £aTL T 1 • S ATL T 2 . I NT X # SATLN 1 » SA TL N2 « I N T Y 

GRNT 

33 



IF (TI MEIN) WRITEIft^lClj) IYWDST,NH'-IST. I YMDEN,NHMEN 

GRNT 

SO 



IF (PLO T I N .AND . 14C27 . eo .4 ) wR I T E ( c . 1 3 1 A > 

CRNT 

90 



IF(PL0T 1 N .AND .IA02C.EQ.e) WRITt(6il0l5) 

CRNT 

91 

c 

RfcAU IN UATA TAPE 

GRNT 

92 


30 

READ! 1 1 • ICO 1 . ENOS35 )LYVD( I DAT A ♦! > ,LHM< I DATA ^ I) . NAME ( I DATA+l ) • 

CRNT 

03 



« SATLAr(IOATA + l),5ATLCN(IDATA+l),SATH<I OAT A ♦•I ) 

GRNT 

94 



lF(NAMt( ICATA + t > ,NE*STANAMlNSTA) ) GU TO 30 

CRNT 

95 



|0ATA= lOATAf 1 

CRNT 

96 



CALL D 1F7 1M(LVM0( 1 > , 0i LYMD( IDATA) ,LHM( I DATA) tLOAV.LMlN) 

GRNT 

97 



IMINC ItA7/J=LCAY*lA4C+LKlN 

CRNT 

9S 



CO TO 30 

CRNT 

99 

c 

STCRE STATION CATA AND TEST FOR GREENWICH MER I D I AN ( PR I M£ ) 

GRNT 

100 


35 

Rt*INO 11 

GRNT 

101 



CALL D IFT IF( LVMD ( 1 ) , C , lYMCST .NFMST « JDAY » JMI N> 

CRNT 

102 



JSTAkT=JC AY* 1 tm: ♦JMIN 

GRNT 

103 



CALL 0 IF T IM( LY'-'O ( 1 ) . 0 » I VHDFN . N FME N i MO AY * MM I N ) 

CRNT 

104 



lENO- -ICJAY^IAAC + MMIN 

CRNT 

105 



CC 7C I ST As 1 . NST A 

CRNT 

106 



PkIMtsSTALQN{ISTA)*LTi45..0R*SlALClN(I3TA).GT,3l5. 

CRNT 

107 


IFl PPcI Me. . STALON ( I5TA) .GT. l€D. )5TALJN( 12 TA »- J5C. - STALJNC ISTA ) Gn.NT 103 

KPJ1NT=0 CRNT 10<5 

NPASS=0 CMNT 110 

JHMs-t- 0 CRNT I I 1 
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?02 ) STANAM{ ISTA )#IYMD3T«NHMSTtlYMOeN. 


C SEf-AAATc. STATION DATA 
DO 5C £P= If I DATA 

I MI N ( 1 P ) .LT . I STA ) CO TO 5C 
. IF< IMI N( IP) . CT , IFNC ) GC TC S5 

NP01M = NPCir,T + l 

./NO. SATLJNlNf’ClNT) .GT .13C« ) 

• 5»A TL C^ ( NPC.fNT ) = OeO .-SATLGN (NPOINT ) 

C TSiT FuP Nt..* PASS 

XF( 1KIN( IF ) - JI-M,LT . S: ) CO TO 45 
SPAdS^sNPASS^l 
C SAVd LAST CATA PCINT 

IHMINFASS )=LhV< IP) 

1TIM£ I NP A£S ) =NPO INT 
^YWu YMC ( IP ) 

KYKM = iNYf‘1C/l *0 
I«OAYNO = NY N0-NY«1M If 1 C C 
/ iPLOAY (NFASS)=IOAYNO 
' IFCnPASS .{IQ. I ) rtPlTglfifl 

• NHflt-N 

JMMsIMlNlIPI 

CAUL LAT I MINI IP ) f IhPM IN. IC AY ) 

JJHMsIhh^lN 

irMo«LYMC <n 

CAl-L ADD YFO ( t YMO * I DAY ) 

LlNcSsC 
CO TO 43 

43 IF { kiOD I L I F E S « 5 ) f £ G « C' } ’anITcIo. ICiC) 

MHl let c » 1 / LMMI 1 M » . aA TUA V( 1 Pi * Sm TuuNi i P| t 5 aTm{ IP j 

1F(L iNi^S .EC . 40i GO TO 42 
HNES«LlNcS+l 
CO TU 50 

42 »RIT£( fc . ICC6 ) STANAMdSTA) 

43 . LlNL5r=0 

wRITL ( 6 » 1CC3 > NPASS. I YMC. JJHM 
50 CUNTXNLc 

C PLACE STATIUS IS MIDDLE OF GRID 
55 CONT INUc 

IFINPO INT .EC. C) GO TO 7C 
IT IMt < SP A £S* I ) = NPQT ST ♦ I 
If (F IXGHC 1 GO TO 56 

CALL CENT ER( STALONI 1ST A) . SATLCS.NPJINT, SATMIN.SATMAX) ‘ 

CALL PTY SCM{ SATM IN, SA T VAX .SM IN fSMAX , NY i 

CALL CENTER! STAL AT ( I S T A J , SA TL A T . NPQ I N T , S A TLMN . SA TLM X ) 

CALL PTVSLM<SATL-1N,3ATLVX.FMlN.PMAX,NX) 

CALL GFcl C (SM I S. SMAX f NY « • I 3 ) * ♦ I *PM IN. PMAX.NX , ' I 3) * .1 ,0 ) 
IFILASDPTJ CALL LANOISMlN.SMAX.PMlN.PMAXi 
kRITt(6.lC:9) SMlN.SMAX.NYfPKIS.PMAXfNX 
CO TO 57 

c tSlNC FIXED CFIO WcTHOO 

56 COsTJNUt 

call OKI C ISATLN I .SATLN2. I STY, • 13) * , I . SATLTl . SATLT2. INTX, * I3T ' . I 
IF(LANCPT) call LAND! SATLNl ,SATLN2,3ATLTI »SATLT2) 

57 CONTINUE 

C CCNttR ASL LAEEL GPID 

call tDIT(lYM05T,3Ml6) .ICATE.P) 

CAUL MCHL 1N( 1 CAT E, 6 ♦ 51 2 . I C I 6 ) 


GPNT 

112 

GPNT 

1 13 

CPNT 

1 1 A 

GRNT 

1 15 

GRNT 

1 16 

CR^JT 

117 

CrMT 

US 

. CRMT 

119 

CRMT 

120 

GRNT 

1 2 1 

GRNT 

122 

CRNT. 

123 

GRNT 

124 

GRNT 

125 

GRNT 

12o 

CHNT 

127 

GPNT 

12E 

GRNT 

129 

GRNT 

130 

GRNT 

131 

GRNT 

1 32 

GRNT 

133 

GRNT 

1 34 

GRNT 

1 35 

GRNT 

1 36 

GRNT 

137 

Or;:t 

I3G 

GRNT 

139 

GRNT 

140 

GRNT 

14 1 

GRNT 

142 

GRNT 

143 

GRNT 

144 

GRNT 

145 

GRNT 

146 

GPNT 

147 

GRNT 

148 

GRNT 

IAS 

GRNT 

1 dC 

GRNT 

151 

GRNT 

152 

GRNT 

153 

GRNT 

154 

GRNT 

155 

6R NT 

156 

GRNT 

157 

GRNT 

1 56 

CRNT 

1 59 

GRNT 

160 

GRNT 

161 

) GRMT 

162 

CRNT 

163 

GRNT 

164 

GRNT 

165 

CRNT 

1 66 

GRNT 

167 
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CALU MCf^L JN(STANA'M liiTA), d.f 12 .ICC' ) ‘ ^ 


CRNT 

i 66 

call MUfiL in ( 1 7HPLQT F6WIGD IS . 1 7 . 3 0 C . 1 1 6 ) 


Cf:NT 

16> 

call HCNLIN(2GH4- DEN.lTcc, ^TATICN Pi3S 1 T I CN . 2c .3 : C * 1 C C 0 ) 


CRNT 

1 ?C 

CAi_L cLl T ( IV-lGr.T. 3H Ic ) .FT ( t ) .P J 


GRNT 

171 

, CALL c-Ul T ( I , 3M I d ) .FT ( It J . F 1 


GPMT 

172 

CALL HLNL IN (r T , 2 1 , « : : , 1 I r C J 


CnNT 

173 

call hCRL IN(ChLON(iI TU Jc . ^ ,512. C) 


GRNT 

174 

CALL VtAL IN ( wf-L AT I TUCt. .E . C , 6 1 2 ) 


GPNT 

1 75 

CALL HlU T (ST ALON ( I STA ) ,ST ALAT( ISTA ) . X . 4H «• > 


• GPNT 

176 

C PLLT PASS 


GRNT 

177 

CO t. 0 IPs 1 , NP ASS 


GRNT 

173 

|FPT = I T I ► c( IP ) 


GRNT 

179 

CALL- cO I T ( IhM { I P ) . 3HI a ) , J JHM , G AR3 ) 


GRNT 

1 30 

call t J I T ( It LCAY ( 1 P ), 3 hi 2 ) .NLA Y, no TE ) 


G'TNT 

131 

call plot (S ATLON M FPT ) . SA Tl at ( IFPT J , I TI «r { I Phi ) -IFPT .4H si 

GRNT 

1 2 

CALL PLO T (SATLON { I F PT J . SA TLAT( IFPT ), 1 , AH •} 


GRNT 

IF 3 

CALL CLUhCI S A TlOiNI IFPT ),SATtAT (IFPTI . IX.IYl 


GRNT 

ISA 

/CALL CLUFCC 5ATLQN( IFPThl » . 3ATLAT( I=-pThl ) . IX 1 . lYl) 


CP NT 

165 

' CXs I X- I X 1 


GRNT 

U'6 

LY=I Y- lY 1 


GRNT 

1 i7 

K=SOKT ( Ox **2hCY* *2 ) 


GRNT 

133 

1X«2A * »OX/Ph r X 


GPNT 

13? 

ir*24. UtLY/Ph 1 Y 


GRNT 

1 J'' 

CALL HQkL IN (J JHM , A , I X * IY-6 ) 


GPNT 

191 

CALL HLRL INI NCAY i2« I X • lYhb I 


GPNT 

1 92 

69 CCNTlNLt 


GRMT 

193 

'•ALL r A ni A CV 


Gt“i’,T 

194 

7v) . CunV iNoc 


GKNl 

199 

C TEST FOK LNO CF DATA 


GRNT 

196 

72 RE.AC ( 3 • 1C C5 } EXTRAS 


GRNT 

197 

IFCtXTRAS .EO. ELANK ) GO TO 5 


GRNT 

193 

lF(c XTflAS .SG.LAST) GO TO 75 


CRNT 

199 

CO TO 72 


GRNT 

2C0 

75 CUNT iNUc. 


GRNT 

2C 1 

CALL t-NDFLT 


GRNT 

20 2 

STOP 


GRNT 

20 3 

193C rOPMAT < At ,I u , F3 .0. 1 2X . F3. 0) 


GRNT 

2C4 

130 1 FORMAT <I6.2X,It.iix,A6.2X,F15.e,2X,Fl5.3,2X.F15.5) 


GRNT 

205 

1002 FORM AT {ihl,l9X, 'STATION NAM£ • .AS. /»19X. 'START DATE 

• • 16,/, 

GRNT 

206 

♦ 19x. 'START TIVL • .lA 19X, • END DATE '»X6./tl9Xi 


GRNT 

207 

• »cNO TIME ' . 14 , / ) 


GRNT 

208 

10C3 FORMAT ( Ih 1. 19X. 'PASS NUMBER • . I 3 . / . 1 9 X . • DA T£ OF PASS 

I 6, / , 19X, 

GPNT 

209 

• •TIME OF PASS *.lA,//,ex,'TlME'.17X. 'SAT ELL I TE * . / ,6 X. • 

HOUR ' , SX , 

GRf4T 

210 

• *LAT 1 TUDe '.AX, 'LONG ITUCE' ,5X,*hEIGHT'./,5X, 'MINUTE' ,4X 

, * ( OEGKECS ) 

* GPNT 

2 1 1 

• •3X,«(L:cCFLE5)'.4X, '(METERS)', /I 


GRNT 

2 1 2 

10C4 FORMATCIH , * X , 1 A , 5 X , F9 . 3 , 2X , F 9 • J . ^X , F 1 C . 2 > 


GRNT 

213 

lOCa FORMAT ( Ad ,4X , E ( F 1C . C) ) 


GRNT 

2 1 4 

ICCc FORMAT ( lhC,l9X»Ad, 3X.6HC0NT«D, /// ) 


CRNT 

2 15 

ICC? format ( 1 h 1 , lOX, • CPT IONS KEOUESTcO ARE AS FOLLOWS', //• 


GRNT 

216 

•15X,' STATION NAME ',A6,//> 


GRNT 

217 

ICCfc FURMAT(lhl.lX,'lLLrCAL CPTIGNCAk0'.A6,3X, 


CRNT 

213 

,'IONJkED REMAINING CFTICNS , EXECUTION CONTINUING') 


GRNT 

219 

.1009 FOmMAT ( Ih 1,///. 1 3X, ' BASIC GRIC S I 2 E * , / , 6X , ' LONG 1 T OE 

VALUE' ,3X, 

GRNT 

22C 

• 'LATITUDE V ALUE * , / , 6X , ' H IGH LOV* INT HIGH LOW 

INT * ,/, 

GRNT 

22 1 

•5X,FS,1,2>,FS,i,2x,I2,3X,FE,1,;x,F5.1,3X,I2) 


CRNT 

222 

10 1 C FORMAT (lx) 


CRNT 

223 
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.'X I 

A r ( 1 h . I 0 X, • hOM-D-VAP CVc»^LAY '>LUT»ty» 

J^oKf/ATllh ,l5X.'G.“I-i 3C-.T >.ITH TH-- V AL U£ 5 » . / . I ; X , • V 1 N I L AT I TUDc 

VALec • .f -i. I ./ . I : X , • ‘'AX I ^UV LATITaJL VALJ£ • . F 3 . I » / » I ? X t » NUM-< P 

.LF LATITUC5. IMF.^VAUS ' , 1 j , / . I : X » • 4 I N M uJNGlTCOi: VALUC *.FS* 
( * / t 1 V X » * ^ A X I LJNjITLCc VALUE » i r i • I » / 1 1 ' X » • i.i"? OF L'JMGITUO 

* iNTeAVALS * * 13. /) 

FOr^MATUF .IrX.TIyF INTFl^VAL 10 L>3 PLO T T'£D • . / . 

,13X.*STAA1 OATF *.IiE.l'X.'STArT Tl*>1£ ‘.IL./. 

ilCXf* t.^C DATc *.I6.KX»* ENO T [ 

FUKMAT<1F . IC X, 'P»M NTEC PLOT ONLY',/) 

FO«MAT<lh , I : X. *PP I NTEP ANC SCA:2C PLOT'./) 

6ND. 


GPNT 

GPNT 

GPfiT 

I 

LGHNT 

CRNT 
C«HT 
GPNT 
GRNT 
GWNT 
• GRNT 
CWNT 


22^ 
T2S 
226 
22*’ 
223 
Z 2 7 
?3t 

231 

232 

233 
23A 
235 
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CENTER 


DESCRIPTION 

CENTER calls MAXMIN to determine the center o£ the 
grid at which point it places the station. 
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NAME 

CENTER 


PURFLSi 

PLACES A GIVEN PCINT IN THE CLNTCn OF A 

GRID 

CALLINs« EwGUENCi 

CALL CENTER ( C ENP T » A R-? AY , N ♦ CMI N , CM A X ) 


SYMuJL TYRE 

DE5CR IPT ICN 


CLNPT 

INPOT _ FCir.T TO E£ CENTERED 


ARRAY 

INPUT - APR AY OF POINTS TO d£ PLOTTED 


N 

INPUT - NUMBFR OF ENTRIES IN THE ARRAY 


CMIN 

OUTPUT - MINIMUM VALUE OF THE PLOTTING 

SCALE 

CMAX 

OUTPUT - MAXIMUM VALUE OF THE PLOTTING 

scale 

5L6RLUTINE LSED 

. MAXMIN 


CCNMCN SLOCKS 

NONE 


INPUT FILES 

NONE 


OUTPUT h ILCS 

NONE 


hESTRICT lut'tS 

nONE 


references 

NONE 



SUcJf^OUTINE CENTER( CENPT, ARRAY, K.CMIN^CMAX) CENT 

ClWENSICh ARRAY(N) CENT 

C CCWPLTc.’ MAXIMA ANC MINIMA CENT 

CALL MAXM IN < ARP AY, N . CM IN , CMA X > CENT 

FLcNTH = AK I ( CM AX-CENP T , CENPT- CM I N ) CENT 

C CENTER THE PCINT CENT 

CMlN=CcNF T-FLENTH CENT 

CKAX=C tNF 1 f FLENTM CENT 

RETURN CENT 

kKO CENT 
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34 

35 

36 

37 
36 

39 

40 
4 1 

42 

43 
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DATIME 


/ 

y 


DESCRIPTION , ■ 

Subroutine DATIME converts a given number o£ minutes 
to days, hours and minutes. 
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OAT 1 Me / 

CCiNVtfiiy t-^if;UTCS TU OATS ANO HOURS AND MINUTES 
CALL OAT If 5(MIN, IHRM.IN. lOAY) 

OESCR /PICN 


MIN R 

INPUT - 

MINUTES 

TO 

DE • CONVERTED 

1H<MIN R 

OUTPUT - 

NUMBER 

CF 

HOUF<S AND minutes AFTER 



CONVERS ION 

2 LAY* R 

OUTPUT - 

NUMBER 

OF 

DAYS AFTER CONVERSION 

SUtRCUTINLS (.SCO 

NONE 




CCIMCN CLOCKS 

NONE 




INPUT FILES 

NONE 




□LTPUT FILES 

NONE 




RESTRICT IONS 

NONE 




REFERENCES 

NONE 





SUiSROUriNE DATIMEIMIN. U R/'lNf I CAY ) 
C CCr.VfcRT MJfJUlLS TO DAYS 
lOAYcM IN/ 1A60 
lF<IDAY«CE«n GO TO 20 
MlNlsrl-tlN 
GO TO 10 

20 W1N1=MIN“ IOAYX<1440 
10 CCNTINLt* 

C EXTRACT HOURS 

IHH=MI Nl/^0 
LhR=Mi Nl “ IHR*60 
C CCMcJlNc HUURS AND MINUTES 
JKRM IN--I M <- 1 00 + LHR 
RETURN 
END 


OAT I 31 
DATI 32 
OATI 33 
DATI 34 
DAT! 35 
DATI 36 
OATI 37 
DATI 33 
OATI 39 
DAT! 40 
OATI 41 
DATI 42 
OATI 43 
OATI 44 
OATI 45 


KAfc 

PUf Pt,SE 

CALL ING St QUdl.CE 
SYKDOL TVFC: 
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/ 
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DESCRIPTION , 

LAND . determines the points which make up the 
land masses on the grid. It references the block 
data routine WRLMAP through the entry to EARTH to 
obtain the data. 
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KAKC 

EMIJY POINT 
LAND 


LAND 
PUKPC SC 

PLOTS L/kn MASSES ON OHIO 


IHIT I AL I ?AT ion of AF.-CUMLNTS in calling SEQUENCir 
Calling CEOLLt'CCL call lanc{lc*ngi , lonch tLat i *i.ATa) 

SYMdOL lYTE DLSCPIPTICN 

INPUT - STARTING LONGITUDINAL UOUNDAi^Y CF THE REGION 
INPUT - STOPPING L□^<G I TUDINAL DOUNDARY OF THE REGION 
INPUT - STARTING LATITUDINAL OOUNDARY OF THE RcCICN 
INPUT - STOPPING LATITUDINAL OOUNOARY OF THE REGION 
CALLING SEGLLNCfZ CALL EAR TH ( tsE » NB CD » A , 3 ) 

SYMOOL TYPE DESCRIPTION 

INPUT-OUTPUT - NLMBER OF BODIES OF LAND 


LGNGL 

LCNG2 

LATl 

LAT2 


NE 


NPno 1 

TNDnT-niiToiiT - Ml M«Po r>p 
or LAND 

vprrnR 

»*n T MT^ 

TM FArk< 

A R 

INPUT-OUTPUV - LCNGITUDL 

OF THE 

VECTOR 

POINTS 

B R 

INPUT-OUTPUT - LATITUDE 

OF THE 

VECTOR 

POINTS 

SUORCUTINE USED 

PLOT 




CCPPCN BLOCKS 

NONE 




INPUT FILES 

NONE 




OUTPUT FILES 

NONE 




RESTRICTIONS 

NONE 




RcruftiiNces 

NONE 





SUUROUTI N£ I.AMDILONGI .LCNC2 tL AT 1 .LAT2 ) 
NLAL l.CrNC I«L0N02iLAT I , l.ATH* A( I ), 0(1 ) 
LOGICAL NLG 
iNri'.CLk r-fco(>; 

Lf.G-- L.Uf^G 1 iLT^ C. 

IP.--G 

C FI(UU TiRSV PCZUT IN DATA 10 OF ON THE GRID 


LAND A 9 
LAND r.C 
LAND SI 
LAND (>2 
LAND S3 
I.AFFJ S4 
LAND 0 5 
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CU 30 1 = 1 ,Nf£ 

f.=0 ' 

KP=NLiOt: ( I i J 

CO 20 J= 1 tt-iP 

c* IF NCGATIVu Xr.mi4VALt SUHTPACT FRCf- 360 

IKlNtiO .AKC. A( IM > *G1 . ) A C I P )=: 3 (.O , - A ( I P > 

C TEST IF Fulfils AHG ON GRIO 

ir< A ( I f- > • CT . ‘.CMG I , ANO. A { IP) ,LT «L0NG2 * ANO*M( IP) *CT.LATX 
•LT*LAr2) CO TO 10 
C PLCT POINTS 

IF<N,OT.0) CALL PLO T < A ( I P-M ) , B <1 P-N ) , N , • f) 
h-0 

CO TO 20 

10 

20 CONTINCfc: 

C IF PLOT points e>:tend beygro interval* plot to extremities 

IF<N*0T*C) CALL PLOT{A<IP-N+l),B(lP-j^ + i),r.^,i ») 

30 CUNTINUE 

IF<«NaT*NEC} RETURN 
C REVtiRSL PLOTTING 
|P=0 

CC <i0 1= I ,UE 
K«NaOL><I> 

00 40 J= 1 iK 
lPalP«-I 

iF(A( IP) . lT.O* } AC ! P ) s3CC *-A( t F) 

40 Cun I Inul 

ENTRY eARTH(NE*NOQD,A, E) 

KfiTUHN 

END 


AN0*0( IP) 


L/.r:o 

56 

LAno 


LAti:> 

BU 

Lal-o 

r.9 

LArj.i 

60 

LANO 

6 I 

LAWU 

62 

LAND 

63 

. LAND 

6A 

LAND 

65 

LAND 

66 

LAND 

67 

land 

68 

LAND 

69 

LAND 

70 

LAND 

71 

LArjD 

72 

LAND 

7 J 

LAND 

74 

LAND 

75 

LArjD 

76 

LAND 

77 

LAND 

78 

LAND 

79 

LAND 

eo 

LAND 

81 

LAND 

ft? 

lANh 

P ■?. 

land 

84 

LAND 

85 

LAND 

66 
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/ 


DESCRIPTION 

WRLMAP contains all the data needed to plot 
land masses anywhere on the earth. 
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i 


PUI«MC.5i£ 

CALL INC, SeCULNC'i 
suEkcuTiNu Lsec 
CCHMCN bLOCKS 
INPUT FILLS 
OUTPUT FILES 
RESTRICT TONS 


.-S / 

WRLMAP 

TO CALL LAPTH WITH TH;- WORLO DATA 

CALL WRLMAP 

EARTH 

NON£ 

NONE 


NONE 

NONE 


REFEKENjCES 


NONF 


SUsROUTlNE WRLMAP 

REAL** A H49CA),A £(1SS),A 3(1391, A A(139),/, 5M39I.A 6(1391, 

• A ?(139I*A b(139),A 9 ( I 39 I « A 1 C ( I 39 J , A I 1 < ; 39) , A 12 ( 1 39 1 ♦ 

« A12( I 39) , A14 ( 1 3?) , Al S( 1 39) , Al 6( 1 39 ) , A1 V( 1 39i , A10( 1 39 ) ♦ 

• A1S( 1 39) , A20 ( 139) , A21 ( I 39 ) , A2LM i 39 ) , A23( 1 J9 ) , A2A { 1 3t ) , 

• AiS( 1 3vJ , 1 JS. ) . A2 n I 39) , A26( 1 39) , A29( 1 3 9 ) , A 3C ( I 39 > , 

• Ai 1 1 1 39) , A32 ( I 39 ) , A33( I 39 ) , A3A ( 1 39 > , A3S( I 39 ) , A36< 43), 

• .B l(A9Ca),B 2(139), B 3(139), 3 4(139) ,B 5(139),D 6(139), 

• B 7( 139)*0 3( 139), 8 9 ( 1 29 ) , B I 0 ( 1 3V ) , B 1 M l 39 ) , 3 I 2 ( I 39 ) , 

• U12( 139) ,D14( I 39) , EU5( I 29) ,316{ I 39) , ai7( 139) ,M1H( 1 39 ) , 

• ® ^ n *'!5 ) , 020 ( 1 39 ) , 82 I ( I 39 ) ,iJ22 ( I 35 J , 023( 1 39 ) , B2A ( 1 39 ) , 

• 1 1 35) , (527 { 1 :-9 > *328 ( 1 39 ) . U29( 139) » B30 ( I 39 ) , 

• 1( 135) .032 ( I 35 ) « (333( 1 29) ,034 ( 1 39) ,D35( 139) ,Q36( 43) 
INTEGER C (1 10 ) 

EQUIVALENCE (A 2 ( 1 1 . A 1 ( 1 4 C ) ) , ( A 3 ( 1 J , A 1 ( 279 ) ) , ( A 4 ( 1 ) , A 1 ( 4 1 3 1 ) , 

• (A 5( 1 >, A I ( 667 > ) , ( A 6( 1) ,A I (69t) > , ( A 7 ( 1) ,A 1 ( 036 ) ) , 

• CA 8( 1 ) . A 1 (9 74 } ) , ( A 5 ( I ) , A I ( I I 1 3 ) ) , ( A 1 0 ( 1 ) , A 1 ( 1 2 E2 ) ) , 

• <AJl(l).Al(139I)),(Al2(l),Al(lS39)).(A13(l).Al(lf.6 9)). 

• <A14(l),Al(l&OO)),(A15(l)*Al(1947)),(Al6(l),Al(2906)), 

• t'^T7II>»Al(22 2r.))*(AlG(i;,AlC2364>),(A15(l),Al(2SC3)), 

• ( A20 ( 1 ), A 1 ( 204? )),(A?l(l),AI(2 7bl)i,(A22{l),A:(2920)). 

• ( A?.2( 1 i , A1 ( ;* : 09 ) » . ( A?4 ( 1 ) . A 1 ( 3 I 93 ) ) , ( A26 < I ) , A 1 ( 3337 ) J , 

• <'‘2 6( 1), A I <3476 ) ) , { A?7 C 1 ) , A H 3C13 J ) , ( A20 ( 1 ) , A1 (3764) > , 

• t A2 9 ( 1 ) , A 1 ( 36 93 ) ) , ( A 30 ( 1 ) , A 1 ( 4 032 T ) , ( A 3 1 ( 1 ) , A I ( 4 1 7 1) J , 

• < ( 1 )» A 1 (4 3 If ) ) , ( A33 ( 1 ) , A U444 7 ) ) , ( A34 < 1 ) . A 1 CO 630 ) ) , 

• < A36 ( I ) . A 1 (4 7 2V J > , { A36 { 1 ) , A 1 (4 266 ) > 

EQUIVALENCE ( '• 2 ( 1 ) , 3 1 ( 1 4 C > ) . ( P 3 ( 1 ) , B I ( 2 79 ) ) . ( 0 A < 1 ) , D 1 ( A I 6 ) ) , 

• (tl L( I ).(U < • 7) 1 , (6 6( I j .t:i,<696)) . (B 7 ( I ) , i; 1 3 2 d ) ) , 

• <U 6( I )» H i (97-‘- ♦ I , ( 0 5 ( I ) , Fj M I I 1 3 ) ) * ( b 1 0 ( I ) » f‘- 1 ( 1 2 ^ > 1 , 

• t M I ; . I n 3 4 ‘ J } . ( B 1 r ( I) . ti J < 1 6 J 3 ) J * < n 1 3 < 1 J . 6 ; ( 1 6 3SM ) , 

• < J I 1 > • u I ( I 4 4 6 J ) , { R 1 6 ( 1 ) , B 1 ( 1 >; 4 7 ) ) * ( f > 1 6 ( l ) * ^. I { 5 6 ) > , 

• < •;l 7 < I ) ,0 1 < 2^.2'J ) ) , { n ) 6 ( I ) . LI M 2 3-:- • ) ) ♦ ( F’ I'-X 1 ) . B 1 ( :-‘.33 ) ) , 

• ( U2\>( ) )X) 1 ( 2<‘.4> 1 } , ( f52 I ( n , b H 27t5 1 ) ; . ( [122 ( I ) , ru ( 2 v20) ) » 

• ^ ^*^ *^* * ^ * >^ * t J'-' - V ) ) , ( ['?4 ( 1 ) , c 1 ( 3 1 90 ) ) , ( 026 ( 1 ) , [J 1 ( 32.37 ) ) , 


WRLM 22 
WRLM 23 
WRLM 24 
WPLM 25 
WkLM ?6 
WRLM ?7 
WRLM 20 
WRL'l 29 
WRLM 30 
WRLM 3) 
WRLM 32 
WRLM 33 
WRLM 34 
WRLM 35 
WRLM 36 
WRLM 37 
WRLM 30 
WRLM 39 
WRLM 40 
WRLM 41 
WRLM 42 
WRLM 43 
VFRLM 44 
WRLM 45 
WRLM 46 
WRLM 47 
WRLM AO 
WRLM 49 
WiM.M f>(‘ 
WRL“. 51 
WRF M 5? 
V.Rl.-! 53 

WRLfS 54 
WRLM *.5 
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. . . i ( 4 c j ^ ) > ♦ 
J I » ( n .u 1 j , u I { 4 4 . . V j ) 

1 u j I j , B 1 < ‘ 7e > 

NUKoLa Qf- CJ 

Cm! A »]/2 IC/ 
the tATA IN e/CH 

VEC1U.< Sl.T DtfiNIKO A BUOY. TH£ DATA IN £ 

CaWNu-SPaNO lUG latitude coordinates 

3AT A A 1/ 27S*4 1- dVA-vi ■■> 


( d 31 ( I ) . ;jl f< 17 I I t * 
C M34 ( n , D I CA5SU) J . 


<uaoc n.Mi (3 a7_ . . 

< I I.' l ) ) , ( l:o ( 1 ) 

US3ZI I >nl I </.:3 r J I , ( D33 Cl J ,1, H -f VJ M 

( U 3 3 ( l ) . B 1 < 7 2 V J ) « ( 1 ; C { 1 I , e 1 ( 6 s 1 ) 

Qf- CJ^UNCT bODlfiS (CLCSslD CONTJU.=?S) 

A M/2 IC/ 

"A" ARRAY ARC THE LDMCITUDE COaRDINATL 
BClDY* THE DATA IN EACH a,.«^Av 


F"OR THE 


DATA A 1/ 
27fc, 7 I , 
276e 7 I , 
27t>. 78 « 
274*19. 
272.27, 
269. 46* 
270, Bo . 
266, 50 , 
26A,67. 
267 . 26 . 
275*08 , 
278*63* 
260. 12* 
231*67* 
231*60* 
28 7* 1.2, 
290*28* 
294*47* 
296* 92* 
DATA b 1/ 
66*01* 
64.74* 
63.71 * 
64 *49. 
65.67 » 
65*37* 
63*86* 
63* 1 3 • 
60* 15. 
56* 59 * 
54.99* 
50*69* 
52*69 . 
56* 98 * 
62. 15 > 
61.96* 
58* 35* 
59.81 • 
57, 18* 
DATA A 2/ 
302. 1 7. 
299.5 1 , 
297*51 . 
293.07, 
295,1 1 . 
292. 77 , 


275. 5 J, 

277.67, 
276,04, 
273,97. 
271.31, 

269.90, 
270,12, 
266.94, 
264, 2Q, 

26 .e, 2 C, 
276 , 56 , 
2 7 9 * 9 a , 
2 Q 0 . 26 * 
231 , 89* 
281.62* 
2&7,59, 
290 . 63 * 
295 . 36 . 
296 . 62 , 
66 . 96 , 
66, 54* 
64. 64. 
63 , 32 . 
64,04, 

65.67, 
65.1 3, 
63. 57, 
62.69, 
59. I 6. 
56, 74 . 
54,45, 
50, 99, 
53.30, 

57.72. 
62.54. 
61,03, 
57,42. 

59.72. 

56.90, 
299,56. 
353. 1 3, 
29C, 91 , 
2v6.55, 
254. D?, 
295.55. 
293.80, 


270.71 

274. 66, 
276. 1 2, 
274.ee, 

274.56, 

270. 57, 
27C.4 2. 
265.09, 
26e, 72, 
264.26. 
265*30, 
277.30, 
270,06. 

279.67, 
2 8 C . 4 1 , 
283, 00* 
208,33, 
291,25, 
295,29, 
297*50* 

60.59. 
66*35* 
64.01, 
62,79, 
65.42, 
65*7 1 . 
65,32* 
63*76* 
62*3C* 
56*64, 
5e. C6. 
53.62, 
51.13, 
53. 96. 
50.55, 

62.60, 
60.64, 
57.76, 
59.37, 
66. 35, 

3CC.76, 

303.65, 

2 9 0 « 5 , 

295.be, 

2 9 / . 1 C . 

2 9 6.77, 
294. 7C, 


IM TH 


2 70 
2 74. 
2 79. 
274. 


34 . 
79 

2 3 

03 , 


2 7 3. 60 , 
269.90, 
271.09, 
260. 27. 
266,50. 

264. , 
2/0.49, 
276). 93, 

275.00. 
279.69, 
2€ 1 * 00, 
2£3. 59. 
2 ft 9 * 6 j 6 , 
292. 77 , 
29 e, 18, 
297. 21 , 

66,20 , 

65. 61 , 

63. 61 * 
e3, 13, 
ee, 10 , 

eS. 57, 

es. 00, 

€2,93, 
61,71 . 
fa. 79. 
55.47, 
52,59. 
51.52. 
E4.45* 
59. 13, 
62.20 , 
60 . 45, 
57.67, 
f-fl.53, 
56, 30, ' 
3C1 . 50 , 

3 C 3 « 1 3 , 
297.51, 

2 5 4. 5 -3. 

2 9 5. 14, 

2 9 7. OO » 
293,36. 


EACH '‘D” 

A»>’KAY ARE 

THE 

E VECTDt^ 

SET. 


2 7 7.97. 

2 70. 34 , 

277.23. 

275, 16, 

275.23, 

276,4 1 , 

279,45, 

270. 7 1 , 

277,02, 

273,0 1 ♦ 

273. 90 , 

273.97, 

272.94 , 

273. 3 1 • 

273.01, 

260.94, 

260. 1 3 . 

268.37, 

271 ,97, 

272. 34 . 

271 .75, 

207.75, 

267.46, 

266. 67, 

265.70, 

205. 5 1 , 

264. 94, 

265.24 , 

266.27 , 

267,24, 

•271 .3 1 , 

272. 71 , 

274 ,27, 

276,56, 

277,75, 

277,67, 

279. VS , 

200, 1 2, 

280,71 , 

280,70, 

202,41, 

262,40, 

201 ,45* 

23 1 • 45 , 

201,23. 

204,70 , 

235. 37 * 

286* 1 0* 

209,07, 

239*51 * 

269* 59* 

293.73, 

293. f. 6 , 

293.73, 

295* 1 4 , 

295. 50. 

296.40* 

297,66 , 

290.47, 

298*77/ 

67,57, 

66*79* 

66. 35* 

65,71 * 

65 • 1 8 * 

65, 13, 

63.10, 

63. le. 

63,23, 

63*28. 

03, 52, 

64, 1 5, 

65.96 , 

65.76, 

65.27, 

65 • 96 , 

65, 32. 

65.47, 

6 5 • 0 C) * 

64,40 , 

63,57, 

62.04 • 

63, 28, 

63.57, 

61 ,32, 

60. 53, 

60.93, 

50.45 . 

50,74, 

53.01, 

55 . 33 , 

54,69. 

54.79, 

52.30, 

51 .67, 

51.23, 

51 .23, 

51.52, 

51.06, 

54.74, 

55. 86, 

56. 30. 

69.47, 

60,11, 

61.10, 

62.35, 

62. 01 , 

61 ,96, 

6C, 15, 

59,42, 

56.55, 

57,67 , 

53, 06 • 

58, n-v , 

57.67, 

57 , 47 , 

57,72, 

55,06, 

55. 62 ■ 

55.23/ 

299.00, 

300,32, 

30 1 , 20 , 

303. C6, 

30 1.2 1 , 

300.02. 

296.69, 

295. 14, 

296. 10, 

2 94 . 9 9 , 

294, 55, 

293.96, 

295.2 1 , 

29.'., 23 , 

296.40, 

2 96. 99 » 

295, 14 . 

294. 2Y.» 

292, 1 0, 

292. 1 1 * 

290.92, 


WRLM 

66 

WRLM 

57 

V.’RL'4 

58 

kRLH 

59 

hRLi 

6 0 

KRLM 

61 

KRLM 

62 

WRLM 

63 

WRLM 

64 

WPLM 

65 

WRLM 

66 

WRLM 

67 

WRLM 

66 

WRLM 

69 

ViRLM 

70 

Vi'RLM 

71 

ViRLM 

72 

WRLM 

7 3 

WRLM 

74 

WRLM 

7 5 

WRLM 

76 

WRLM 

77 

WRLM 

78 

WRLM 

79 

WRLM 

80 

WF<LM 

81 

WRLM 

82 

WRLM 

6 3 

WRLM 

C4 

WRLM 

85 

WRL.M 

Bf» 

WRLM 

87 

WRLM 

86 

WRLM 

89 

WRLM 

9 0 

WRLM 

91 

WRLM 

92 

WRLM 

93 

WRLM 

94 

WRLM 

95 

WRLM 

96 

WRLM 

97 

WRLM 

9 0 

WRLM 

99 


V.RLM ICC 
WRLM 101 
V.-RLM 102 
V.HLM IC3 
V.'RLM 10/; 
lrlh 1/75 
V.'RLM lv6 
ViiR.M 107 
TrRLM lOa 
WRLM 109 
WfvLM lie 
t'Jl.M 1 1 1 
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61 . 

239 

. 07. 

287.96, 

26f .26, 

.'X } 

2 o 7 • 7 4 , 

2t’.C, 05. 

286.52, 


1 12 

a c> 

16. 

28 e 

. I..' 4 . 

n r • 3 V . 

?f 22, 

2t^4 . 63, 

205. 30 • 

2C4 . 0 5 » 

V. tL M 

1 3 


26 * 

28 3 

• 30. 

2:>3. 

2 r-3, 8:^ , 

2 Fi-; , 1 9 . 

283.46. 

203,37, 


1 14 

2dJ« 

0 6. 

2 6.1 

.0 6, 

2 0 2.4 1 . 

2 ^ 1 . 89, 

2 P2 . 1 9 , 

2 13 1 . 0 9 ♦ 

282.63, 

V. iLW 

1 15 

2o3« 

r.6 » 

262 

« 6 , 

2 3 , 1 5 , 

2 7 2 34 , 

2 5,3 . 0 r , 

28 2. 34 , 

2fa0 .71, 

Vs;^LM 

1 

260 • 

04 ■ 

279 

. 1 :i . 

277.59, 

2 78 . 04 « 

277.59, 

276.49, 

278.3 V, 

•...>L3 

1 7 

276* 

7 1 , 

279 

. 3 3 , 

2 7 8.41, 

2 77. 3 J , 

2 7ci • 6 4 , 

277. 75 ♦ 

276,4 1 • 

V-RL 1 

1 ic 

276. 

78. 

276 

• 04. 

275.23. 

•2 7 4,56, 

273,31 . 

273. C 1 . 

272,27, 


1 9 

271. 

C9 « 

2 70 

* 64 , 

269*83. 

2 f 9, 31 , 

2 7C ,C 5 , 

270.64 , 

270.27, 

V^RLM 

120 

269. 

S3 , 

26€ 

.42. 

266.7 2, 

266,05, 

265.16, 

2 6> 4 # C 5 » 

263.76, 


121 

262 » 

•i3. 

262 

• 4 3, 

261.61, 

2ei , 76. 

261 .54, 

261.91 , 

261.17, 


122 

261* 

54 ♦ 

260 

.95. 

2,61. 76, 

261.93, 

262.87, 

263. 3 1 , 

263.91, 


123 

26 £3 « 

39 . 

262 

. 16. 

266.43, 

266,79, 

267.95, 

267. 33. 

269.42/ 

ISRLM 

124 

CATA 8 

2/ 

54 

.74, 

54,50* 

£4. 16 * 

53,52, 

53.20 ♦ 

53.52, 

V.-ILM 

125 

S3. 

16. 

53 

.28. 

5 2 * 2 6 * 

51*96. 

51*13, 

51.33, 

50.99, 

V.RLM 

1 26 

49. 

62 . 

SO 

,06, 

49.72, 

£C .16. 

5C.21 , 

5C . 30 , 

49.62, 

V^HLM 

127 

49. 

13 . 

48 

.99, 

49.26, 

49.18, 

40.65, 

48. 26. 

43.35.- 

V.*'?LM 

120 

47. 

91 ( 

47 

.62* 

46.74, 

46,74 , 

46.01 , 

46.50 • 

45.82. 

V.PLM 

129 

45. 

67. 

4C 

• 33, 

4 E.62, 

43. 28 * 

44.74 . 

44.40, 

43.38, 

Wr7LM 

13f. 

43. 

77, 

44 

,63, 

4 5.20, 

45.23. 

45* 18, 

4 4.31* 

44,45, 

W4LM 

X 11 

43. 

33. 

43 

• 62 , 

42,28. 

42.79, 

42,31 , 

4 1 • 2 8 • 

41,38. 

VkRLM 

1 i2 

4!« 

18 1 

40 

, 35, 

4 0,99, 

41.53. 

4C.4C . 

39.77. 

39.04 , 

hf<LM 

133 

39« 

33 , 

39 

*82, 

36,99, 

38*11, 

37.48, 

37. 23 * 

38.01 , 

WRLM 

1 34 

38. 

50 ( 

39 

,46, 

38,64. 

38,50. 

37.37, 

37. 28. 

36,39. 

ViRLM 

1 35 

36. 

21 • 

35 

• 97, 

35.5'6. 

35. 23. 

34.70 » 

34.50 • 

33,43, 

WRLM 

136 

32« 

Q9 . 

32 

• 41 • 

31,43* 

30,41 • 

29.33, 

20. 35, 

23* 1 1 , 

y.RLM 

137 

27. 

33 . 

26 

.51. 

25.66, 

P5. 97, 

27.04 , 

27.24. 

27.92, 

WRI '* 

\ 30 

?A. 

A4 , 


.ro. 

? C - R 5 . 

59 f 5? . 

29,77 . 

7r . . 

?0 s 2 ! ; 

^ r>, M 

1 TO 

30« 

65. 

3C 

■ 46 . 

30,60, 

30. 16* 

29.48, 

28. 85, 

28.65. 

toRLM 

1 40 

Z(i* 

69. 

2 9 

• 24. 

29,33, 

£9, 25. 

29,S8. 

29*63, 

28.85, 

WRLM 

14 1 

2d« 

65. 

28 

.25, 

27,92, 

£7.04, 

26.46, 

25.87 , 

24.95, 

hRLM 

142 

24. 

02 . 

23 

.04, 

21,92, 

2C . BO '. 

19.85. 

19.09, 

16.46, 

y.PLM 

143 

18« 

41 • 

1 7 

, 97, 

1 7.55. 

17. 78, 

18.26. 

18,90 . 

19.19/ 

V.RLM 

144 

DATA A 

3/ 

268 

.42, 

268,94, 

270.05. 

270.49, 

271.23, 

272.05, 

IvRLM 

145 

272. 

7 1 . 

2 7 1 

.9 7, 

272,27. 

271.63, 

271.90, 

271,83, 

270.94 , 

V.RLM 

146 

270. 

66 , 

27 1 

.09. 

270,57, 

272,12. 

272 . 57 , 

273.90, 

275,23, 

V-RLM 

147 

276. 

19 . 

275 

.60, 

275.97, 

275,23, 

275.90, 

275.0 1 , 

275.75, 

V.RLM 

148 

277. 

01 . 

277 

.45. 

278,26, 

278. 93, 

2 80.4 1 , 

281,02, 

283.03, 

WRLM 

149 

26 3. 

1 S . 

283 

• 96, 

283.96, 

264.93, 

285. G9, 

286. 55 , 

287. 59, 

V.RLM 

1 SC 

266. 

92. 

287 

,00, 

266.76. 

2E7.22, 

266.92, 

2G7. 37, 

289.40, 

WRLM 

151 

287. 

ei * 

282 

.48, 

289.44, 

269. 51 . 

289.14, 

209,29, 

290,77, 

y-RLM 

1 52 

289. 

96 . 

289 

• e I . 

290.85, 

291.96, 

252.99. 

294. 1 3 

294.62, 

V.RLM 

153 

295. 

21 , 

296 

• 10, 

29 6. 99. 

296.69, 

297,29, 

296. 99 , 

297. 80, 

VRLM 

154 

299. 

21 . 

298 

• 84, 

300.25, 

3C0. C2, 

3CC .99, 

302. 25. 

301 .02, 

VRL 

15S 

304. 

C2 . 

304 

.47, 

306.24, 

306, 54 . 

307.72, 

307. 94 , 

303.46, 

VRLM 

1 56 

30 7. 

80 . 

3oe 

. 60, 

308.54. 

309. A2, 

310.61 « 

31 C. 90 , 

312.01. 

VRLM 

157 

3t2. 

98* 

314 

,60, 

314,83. 

3 14.53, 

314.53, 

315.64, 

315.79, 

VfH.M 

1 58 

317. 

94 . 

3 1 9 

. 93, 

32C.67, 

321.71, 

322 . 08 , 

323. 34 , 

323.63, 

V.'RLM 

159 

324. 

00 . 

324 

.30. 

323.71, 

323. 63, 

322*03. 

321.93, 

321.64, 

WRLM 

160 

319. 

93, 

319 

.56, 

319.4 2, 

3 19. 79, 

319.42, 

315.86, 

319.35, 

VHLM 

161 

319. 

34 , 

318 

. 60* 

31 6.38. 

3 17. 64, 

317.42, 

316, 7 5 i 

316*46, 

V.RLM 

16 2 

315. 

06 * 

314 

. 16, 

312.31. 

311,42, 

3 1C . 24 , 

310. 16, 

309.79, 

VRLM 

163 

319. 

24. 

309 

♦ 50, 

30 8.9 P, 

3 C 8 . f. 1 , 

307.57 , 

30 6 .46, 

306.32/ 

VRLM 

1 (’4 

DATA 6 

3/ 

1 9 

.95, 

21.14, 

21 * 14, 

21.30, 

21.25, 

21.25, 

V R L M 

165 

20. 

60 . 

20 

. 56. 

20.12* 

19.63, 

18*65, 

1 b . 1 7 , 

10.17, 

VRLM 

I 66 

17. 

14. 

1 C 

.51 . 

15.65, 

15.92. 

15.73, 

15.53, 

15. 60, 

V/RLM 

167 
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1 3. 76, 

12.95. 

12.46, 

iT.4r , 

11.15. 

io.ro. 


1 6 1‘ 

9 • 44 • 

9.66. 

9 • 2 9 » 

9 ♦ t- ^ ♦ 

y 9 • 4 9 , 

e.£S. 

9.25, 


16 9 

10. 17 • 

1 f*.< 5. 

1 C. 05 . 

11 « 27 , 

1 1 . 2 , 

1 2 , f. 7 . 

1 1 .7:., 

Vv L'"! 

1 7 *• 

1 1 • 24 « 

1 , 9 0 4 

IC,M , 

10. I7» 

9.55, 

9.19. 

9.73, 

■A r 1 -. 1 

1 7 1 

t 0 • 0 1 • 

1 1.29. 

11.3 ‘J , 

1 1 • 4 .1 , 

11.92. 

12.51. 

12.12, 

V.:-'LM 

1 

1 1 • 55 « 

1 1.0b. 

1 C, 27, 

10*4 1 , 

LC . 0 2 , 

9 • 5 » 

10.61. 

V.'U. ^ 

17 .1 

10* 31 • 

1 C . 4 i , 

1 C . 4 1 , 

9 • 6b * 

9, 58. 

6.61 . 

9.05. 

v.r.1 

1 7 4 

«>.41 « 

O* 1 5, 

7.29, 

6. M , 

6*27, 

5.63. 

5.35, 


176 

s« a3 • 

£.34, 

5,34. 

4 • 1 , 

3.95 • 

J. 39, 

3 • C 5 ♦ 

V.J'.l f*. 

176 

2. 37 • 

i.ce. 

1.25, 

0*41. 

C.37, 

—0. 66 ♦ 

—0 .61. 

vu:l3 

1 V7 

-0.95i 

-1.29, 

-1.73, 

-1 .63, 

-2.32, 

-1.95. 

-2.22. 


17M 

-2.37# 

-3.39, 

-3.97, 

-4*75, 

-5.24. 

-5. 24 • 

-5. 97, 

hr^L^' 

179 

.-7.00 » 

-7*95, 

- e . f 5 . 

-9.53. 

-10*22. 

-1 C. 90 , 

-12.1 5. 

V/f'LM 


-12.22* 

-1 5. OC 4 

-14*17, 

- 15. l‘>. 

-12.66, 

-17.04 , 

- 17* 82. 


lOl 

-13. S5 . 

- 1 5,46, 

-2C.05. 

-ao.46. 

-21 .34, 

-21.46. 

-22.21 . 

V.PI..M 

10*’ 

-22.35. 

-22. 3 1, 

- 2 3 . 4 6 » 

- 24, 55, 

-24.65, 

-25. 75. 

-26.41. 

I'.nLM 

133 

-27. 3b . 

-27.92, 

-28.00, 

- 29. 73. 

-3C.6C. 

-31.09, 

-31 .67/ 

v.plm 

104 

CAT A A 4/ 

3 j 5 , 3 5 * 

304,76. 

3 C 3 , V 3 . 

302.54 , 

301. £3, 

3CC.C4< 

\nF’ I/'. 

105 

300 . 76 . 

30C, 1 7, 

30 1.C6, 

3C0.99, 

3C2 54 * 

301, 65, 

3C 1 • £!>« 

V.r^LM 

186 

300. 39 I 

299.4 3. 

297, 95, 

296* 77, 

296.03. 

296.52. 

296*25. 

VSRL'-I 

107 

294,92. 

293. 96, 

293.66. 

29S. 14 • 

293.96* 

293. 73. 

293.29* 

y.HLM 

183 

293* SI 1 

293.36, 

292* 1 6, 

292, r 5, 

291 *07 , 

291 • 59, 

292.05, 

V<R l.M 

1 0 9 

292.70 « 

29 I. 37. 

29 1.66. 

290. 53. 

269*81 • 

289. 74 , 

209.96. 

V.f; LM 

1 9*^ 

2B8. 55 . 

267.4 96. 

257. 1 5, 

2S5. ai . 

286.18. 

285.30 , 

284 . 70 , 

1^1? LM 

191 

284 • 4b . 

2ec:.3C. 

265. 15, 

2E4. 85. 

285. 37 , 

205. 15. 

205, £9, 

UPLM 

102 

2US. 37 4 

236. 1 I • 

2b£»44, 

2CS. et , 

235.37 , 

2 3 £ . r. 1 « 

205. 22, 

V.RLM 

193 

2f56« ?7 s 

9 n If . 1 ? . 

? 7 , 


2P.A. 04 , 

74 • 

2 8 6.4! . 


194 

** i 

o A nr, 

*» •» A ^ rt . 

o ft T» . r\f> . 

9 /. A. . n 4 . 

0«7 . AA , 

2 fi A . 8 S , 

'« 

1 «35 

267.69. 

267, 59. 

2Q7.60, 

26Q. 10, 

208. 1 1 • 

287. 96. 

288.48. 

VkRL^'*. 

1 96 

266. 26 1 

267.66. 

238.33. 

266.03. 

2C8.4C. 

267.09, 

287.07, 

V.RL’l 

197 

2B5. 52 1 

264. 26* 

2 3 3.67, 

2S2.63, 

282 .1 1 . 

202. C4 * 

281 .CO, 

VkRLM 

] VS 

261.15. 

260. 19. 

28C. 7 1 . 

279.67. 

279.36. 

278.49, 

277.82, 


1 00 

273. 19* 

279.60, 

277.9 7. 

278.04, 

2 76,04, 

270, 49 , 

270.41 , 

WiRLM 

200 

27 9. 45 . 

279.07, 

26C.71, 

260. 63. 

281 *30, 

2C1. 15. 

231.15, 

ViiRLM 

29 1 

260. 71 . 

2BC.4 1 , 

280.26, 

2 79.Ca. 

270.26, 

279. 1 5, 

277. 82, 

ViRLM 

292 

277. 30 . 

276.41, 

274.93, 

274.93. 

273.75, 

273. 31 , 

272.06, 

ViRLM 

203 

271.36. 

272.05. 

27C.94, 

2 70 .49, 

269.83, 

269.61 « 

260.94/ 

VRLM 

20 4 

DATA 6 4/ 

-32.75. 

-33.75, 

-34, 26. 

-34,36, 

-33.92 • 

-32.94, 

ViF<LM 

205 

-33.25* 

-33.97, 

-34, 16. 

-34. 80. 

-36.01 ♦ 

-36. 35 , 

-37.23, 

ViRLM 

20 6 

-37. 53. 

-3C. 1 1, 

-36.45, 

-38. 25, 

-30.09, 

-39.77. 

-40* 31 , 

ViRLM 

207 

-39. 96 . 

-39.65. 

-4C.94, 

-41,53, 

-41 .77 , 

-42. 79 , 

-43.55. 

ViRLM 

20 8 

-44.01 4 

-44.9 9 4 

-4 4.01, 

— 44 « 65 * 

-45.1 5* 

-45. 77 , 

— A 6 .26. 

'►RLM 

209 

-47.38 , 

-47.62. 

-46.65, 

-49. lb , • 

-49,33, 

-50. 30 • 

“51 .20. 

W»L 

210 

-51 . 45 . 

- 5 I 4 r, 6 , 

-51 .72, 

-51*82, 

-5C .94 , 

-5C.85, 

-5C.A5, 

Ik RUM 

2 1 1 

-49. 36 4 

-4Q.45i 

-46.36, 

-46*65, 

-40, 1 1 , 

-45. 23, 

-45. C9, 

V.F^LM 

212 

-44. 70 . 

-44,25. 

-43. 1 3, 

-42*65, 

-42.0 1 • 

-41.23. 

-40. CS, 

VkRLM 

2 3 

“39. 09. 

— 3 G * 4 5 » 

-37.43, 

— 36.50. 

-35.95. 

-35. 19. 

-34*41 , 

V;RL A 

214 

-33.97. 

-32. 84. 

-31.75, 

-30*75 , 

-29.77, 

-20*09 , 

-20. 16, 

ViF<LM 

215 

-27. 15. 

-2t*41. 

-25.46. 

- 24 .46 ♦ 

-23.53, 

-22-95. 

-22.31 . 

VkRLM 

21 6 

-21 . 46. 

-2Cr 65. 

-20.07, 

- 19.09 , 

- 10.3 1 , 

-17.43, 

-17.00, 

V«RLM 

217 

-16. 17. 

-1 5.30. 

-14,31. 

- 13. 78, 

-13,14, 

-12. 12, 

-11*24, 

V.HLM 

218 

-10.22. 

-9.44. 

— E • 6 6 , 

-7.49, 

-6.71 , 

-5. C3 , 

-5. I 4 , 

URL M 

219 

-4.02. 

-2.76, 

-2.51, 

-1.58, 

-0.05, 

0.22, 

1 .39, 

URI.M 

220 

1.06. 

2.76, 

3. 56, 

4 . 56 , 

4,90, 

5. 78 , 

6.66. 

VRLM 

22 1 

7.34. 

6.17. 

C,7'i, 

0 • 5> 1 * 

7.03, 

V.44 , 

7.19, 

V.RLM 

222 

7. 66. 

6.40. 

0.56. 

9. 39, 

9.G J, 

1C.66, 

11.40. 

urlm 

223 


1-89 



WRLMAP 

Page 6 of 28 

30 September 19 




12. 1 * 

1 4 . 

1 3 . f 7 , 

13.51. 

1 3 , 7 , 

1 3 . 5 3 , 

14,12/ 


2 24 

tATA A 5/ 

?C7i r ^ , 

2 ( • . 2 C . 

2C5. In, 

264 .79, 

263. !. 1 . 

262.72, 

v.-'5US 

225 

2o C « A .{ « 

2 i: . f . V . 

2:o.«.c, 

2 t V . { 4 , 

2 f;-'' • 7 1’ , 

256.23, 

2 5 5 • 3 ' J , 

svvi.-r 

22 0 

. 

2e.:u 77. 

2 5 3 . «! 9 . 

PCV.O }. 

2t:2.3;.. 

251. 92 , 

2 J • 0 7 , 

V-r? 1.3 

2 37 

rfJUC « 1 ♦ 

24 r* , 7 J» 

2 4 0.06, 

2 4 7 . C 3 . 

247 . 25 , 

246. 22, 

246.37. 

y.4;..3 

2?.) 

t 

24'.. 74. 

2 4 • 0 7 , 

244. 37 , 

24 n . » ■ j . 

245, r.5. 

246*51., 


22 9 

2A6. J7 . 

24 7.02. 

24 7.33, 

249. Jb. 

248 « 38 , 

249. 70 . 

249.47. 

.V.RL t 

230 

24-ci* I » 

24V* 99. 

24 6. f 1 , 

2 4 6 . G J , 

2 4 , ; 6 , 

24 4. 4 4 , 

243. 55, 

V'RL". 

2 3 1 

2C3*eO, 

242.00. 

242,96 , 

242.0V, 

242.15, 

24 1,02. 

240.22, 

U L -1 

232 

23b. 7s . 

230.67, 

2 3 7 . 4 G . 

236. P2, 

. 237. < 0, 

2. 36. I -3 , 

236.49, 

tnuM 

233 

2 3 y • 0 « 

2 3 4 , b 9 . 

235. 7 1. 

2 35.63, 

235,34, 

235.49, 

235.72. 

‘rt F\l. 'i 

234 

2 3 1> t 0 A . 

2 3 £ . 0 4- , 

235. 7C, 

2 3 6.45, 

237.04, 

237. 63 , 

2 37.26, 

V.r<L3 

2 35 

23V » V 1 . 

237.64, 

235,4 9, 

233.93, 

2 32,4-3, 

2 3 1.49, 

2 31.41, 

Vr'HLl 

23C 

23C • A2 . 

23 0. C 2 . 

2 30, It, 

2 29. 27, 

2 29.') 5, 

228, 02 , 

227*94, 

h P L. f ' 

237 

2 2b • 3 u > 

227. 79. 

.5 3. 

2 ?♦:. 3 1 , 

226.46, 

226,23, 

225,27, 

ViRLM 

230 

221.; -vj . 

224.90, 

224. 16. 

223.20, 

22A*0 1 , 

223. 50 , 

222,09, 

WRL3 

2 39 

221 . 35. 

21 9. 79. 

216.90, 

2 in,24. 

2 1 C . 5 4 , 

215.72. 

214.47. 

V.RL". 

240 

2 1 2 • r A . 

213* 36. 

2 1 1 .95. 

2 10.99, 

21 1 ,65 , 

210.62, 

209.28. 

Vs6LM 

24 1 

20b» 25 « 

206.991 

20 7,21, 

2Cfl.40 , 

2C9.36, 

209. 3S 

207,73. 

KRLM 

24 2 

236* 32 » 

2C6. 10, 

2 0 5.07, 

2C4. 99. 

205,73. 

204. 1*3, 

202.48. 

hWLM 

24 3 

202f Ab* 

20 1. 37, 

20 1 .37, 

200*40. 

199.44, 

1 9 Q . 9 2. , 

1 96.85/ 

hRLM 

24 4 

DATA H 5/ 

14.56, 

15*09, 

15. 24, 

IC.02, 

16.22. 

15.73, 

V[RLM 

2 Ci 

I&.46. 

1 6. 51 , 

1 6. R5, 

17,09, 

17.02, 

10*17, 

18.85. 

HRLM 

246 

19.63. 

20. 60. 

21.77, 

2 2 * 6 3. 

23.53* 

24* 2 1 , 

25.43, 

ViRLM 

247 

26. 31 « 

27.29, 

?a.c 7, 

?0 « 69 , 

29.20, 

30.07, 

30.7S, 

ViRLM 

248 

3 • • IV. 

3C. 2£ . 

? 0 ? A t . 

?9.97, 

29.58, 

28.99 , 

29,50, 

ViRLM 

249 

^ • 

26. 7 5* 

A , 

55 1 » o j 

24.70, 

23. 82, 

23. 19, 

>\RLM 

250 

23* bn. 

24.21. 

24.65, 

25* 62. 

27.04 , 

27.9? , 

29,04* 

V.RLM 

25 1 

29*43. 

3C. 1 1 , 

30*80, 

21 *4S. 

3 2 • M • 

33.48, 

33.07, 

\iPLM 

252 

34* 55 « 

35.20* 

36.31, 

56* 94. 

27.53, 

38.45, 

38.89* 

KRLM 

2.5 3 

39* ev . 

4 0.45* 

4 1.16, 

42,55, 

43,67 » 

44.60 . 

45.67, 

V.kLM 

254 

46*69. 

47.57. 

47,23, 

47.52. 

47.08, 

47. 62 • 

40.21* 

VsRLM 

255 

46 ■ 65 • 

49. OG, 

4 9.62, 

E0.6A, 

50.09, 

61.23, 

51 .66, 

v.RL'^ 

250 

52* 74 . 

53.77, 

54 .20. 

E3. 33, 

£3,91 , 

54.69, 

55.77, 

VsRLM 

257 

56*25* 

56.79. 

56. 69. 

57,03. 

57.47, 

57. 86. 

57.33, 

ViRLM 

258 

67* 72 , 

57.01, 

57.23. 

57.62, 

£0.35, 

58.94 , 

58.25, 

WRLfS 

259 

50*74. 

£9*C 5. 

59.03, 

S9.42, 

59.52, 

59. 42 , 

59.66, 

liPLM 

260 

59. 57 . 

6C. 25, 

60.59, 

60.11, 

£9.52, 

59. 23 , 

59.37, 

V/PLM 

20 1 

59 • 03. 

se.04. 

59.61, 

60.35. 

60.20, 

60. 69 • 

60.79, 

V.nLf*. 

2G2 

60* 15. 

59.47, 

39«Cb. 

£6*59, 

58.45, 

57.76, 

57,23, 

ViRLM 

263 

56. C9 . 

56. 79, 

56.11, 

55. 77, 

55.72, 

55. 33. 

54.99/ 


264 

DATA A 6/ 

197.22. 

196.33, 

1 99.29, 

’ 2 C 0 . 6 3 , 

20C. 92, 

201 .CO . 

WRLM 

265 

199*66. 

1 9 3 . C 5 . 

197.61, 

1 96. 92, 

197.29, 

1 97, 29, 

196. 33. 

V.’RL'3 

266 

195* 15. 

1 95,74, 

194,56* 

1 94 . 1 1 . 

1 93.74 , 

194.56 , 

195.22. 

ViRLM 

267 

195. 59 . 

197. 22, 

1 96.63, 

1 98.26 , 

• icr.',77, 

197,96, 

190.63, 

>i R L M 

268 

195. C2 • 

194.63, 

193.15, 

1 92. 71 , 

1 91 ,60 , 

192. 93, 

1 94 . 4 1 , 

VJRl.M 

26 9 

194. Vb. 

1 9 5 .50. 

196,26, 

197.37, 

198.70, 

197.74, 

197.44, 

ViRLM 

270 

196. 16 « 

195. 74, 

1 94 , fiS, 

1 9 4 « ?; 6 . 

1 02 . :5. 

IT*. 19, 

1 96. 1 J , 

V.RLM 

2.7 1 

1 9 7 * 1 1> . 

190.40, 

1 9 & . 5 5 . 

1 98.92. 

200.92, 

201,29, 

202.77. 

v;ri.m 

27 2 

20 2. V 2 . 

203. M » 

204. 33, 

2C5. 07, 

206,77 . 

207. 43 , 

2C0.03, 

VIRLM 

27 3 

20 V, 14 . 

2 0 4. b*'.. 

269.-95, 

2 11.83, 

213. 1 3, 

214, 17, 

2 1 5 , 2 e , 

V.RLM 

27 4 

21.';.. 17. 

21 7. ".7. 

2 1 9 . a V , 

. 63 , 

222.90, 

22 J. 9.'. , 

226, OS), 

ViRl.M 

275 

2 2 ► ') ■-* » 

220.01, 

22r.9C, 

2:-o.oi , 

2 3r . -10 , 

2 <2, 0 «, 

2 33.4 1 , 

V.P LM 

27 6 

234 , Vt.' . 

2 »■' 5* , 

236.67, 

237. 26, 

2 3 3,52, 

2 39. 8‘3, 

240.96, 

VRLM 

27 7 

24 1 • 70 . 

24 2. OV, 

243.92, 

2^5, 23 , 

10, 

20 C , 2 2 , 

4 7 . G 2 , 

ViPLM. 

27.3 

24 9* 2::>« 

25C.f- 7, 

250.95, 

251 . 77, 

251 .69, 

251,69, 

252.73, 

V.HLM 

2/9 
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2D1 • 77* 

2D3. 77. 

2 t < . ( 6 . 

255. C2, 

.’>■ / 

2 b6« • 7 j « 

257, 39, 

255.C0, 


?8C 

2 9 ^ * 

2f-C . 7 2. 

2 1 7. . 3 5 , 

2 £ 3. 54 , 

25^. f rit 

265. :'9 , 

265-24. 

V.fJLM 

2a i 

2 1» 7 • -T* 1 ♦ 

24£ . 72. 

2- 4.72, 

2C3.6'., 

2 :- 2, 94, 

2£> 4 , 3 'i . 

264 . 72 , 

wt'L n 

202 

2^9* s C> • 

2^C. 42. 

2 - i . 1 ? . 

2 £T . 64. 

2 6 7' . 7 5 , 

267. 61, 

268 . 94 • 

V.UL'l 

283 

y • • 

2 «i 9 « 9 0 f 

27f ,79, 

2 71,31, 

271 .;>C , 

2 7 2 • 6 , 

273,33/ 

\:i L n 

2 b*. 

C^^TA b o/ 

C5.77, 

5 e . c 1 . 

f 6. 89 , 

£7 .23. 

57* ?l • 

58. 51, 

V.1-:L': 

23 5. 

£i 6 • 11 • 

5e. r-'.4. 

5 t- . 2 5 . 

56. 25. 

59.18, 

59, 81 , 

59.62. 

\%r lh 

2S 6 

59*47* 

t 0 . 5 4 . 

6 C . 9 3 . 

(1 .C7, 

62.30. 

62,45, 

63,37, 

lm 

287 

62 • o*.^ » 

62.75. 

62.93, 

6 3 0 76 i 

64,30, 

64, 79 • 

64 , 20 . 

■ VvP.LM 

2ca 

64.54. 

64. 1 C. 

64.46, 

€5.03. 

65 » 52 t 

66* 1 5. 

66.35* 

VTiL'l 

280 

65.31 * 

0 6. I C. 

65.71, 

65.61, 

66 • 3 C . 

66,35, 

67 . 1 . 

v.fn.’i 

29 0 

66. 6B « 

6 7.42. 

57*62. 

€8. 01 . 

67.71 , 

60,93, 

68,92. 

V.KLM 

20 1 

69. 37 , 

69.76. 

70. C 1 , 

70 .44 , 

70,20. 

70.74 , 

71.22, 

V.ULl 

29 2 

70.44, 

7C. 1 0. 

7 0.74, 

7C . 20 , 

70,83. 

70.25. 

70,93, 

v<nL‘i 

29 3 

70.10, 

70.33, 

70.05. 

70.01 , 

70,25. 

69*66, 

70.30, 

liRL’l 

294 

6 V. u 1 * 

69.61. 

69.96, 

68.93, 

69,18. 

68, 59 . 

£9,66. 

i-.ruM 

295 

69.66. 

70. 15. 

69.9 1. 

70 . 64 , 

69,76 . 

69. 96 . 

70.25. 

V.RLM 

29 6 

69.27 ♦ 

70. 1 0, 

69. 23. 

69.76. 

£9,76. 

69.03, 

69. 23, 

V>RUM 

297 

66.74. 

6R.79. 

6 6 • 5 4 , 

68.74 « 

67.91 . 

67, 06 , 

67.91 , 

IvRL ^ 

29B 

67 . 66 . 

66.6C. 

66.74, 

€5* 66 . 

€6,59. 

67,42 . 

67.91 , 

WRLM 

299 

66.69. 

CC. 59. 

6 0.93. 

66. 10 ( 

68*25. 

68*44. 

67,91 , 

V»L ^ 

300 

63. IS « 

67.57. 

50.25. 

€7. 7£% , 

67*23, 

66 • 64 . 

67,62. 

V8?LM 

30 1 

67. ei . 

66v98. 

69*32, 

€9,57, 

69 . 96 . 

70.69. 

71 . S7, 

VvRLM 

302 

71. 76. 

7 C . 7 5 . 

7C ,69, 

70.01 . 

6 9 • 6 . 

69. in, 

e.'i.OG, 

V.RL 1 

3C3 

6d. iO « 

66. C5, 

60.49* . 

68. 35. 

67.52. 

66. 98 t 

67.71/ 

ViRLM 

304 

CATA A 7/ 

273. 52. 

274.42, 

2 75. 16 * 

59*85, 

53* 67 • 

57.75, 

WRLM 

30 5 

57, 41 « 

56.97, 

ri r . 1 5 , 

£5.41 , 

54 • 30. 

53. 1 9 , 

52. GO* 

WRLM 

306 

f>Pm 3A . 

51.34. 

r.0.67. 

£0.01 . 

49,27. 

47.79 , 

47,27, 

V.Rt.M 

307 

46.97. 

46. 1 6, 

45.35, 

44. 61 * 

44 • 0 9 , 

43* 57 . 

43. CS, 

VlRL'1 

30B 

42.63. 

41.57, 

40.6 1 « 

«0 * 31 , 

41*13, 

41.72, 

42.24, 

V.RLM 

309 

41. ,57. 

4C".76, 

40.09* 

20. 61 • 

38.91 . 

33. 39 * 

37*e7, 

toRLM 

310 

38.31 • 

37. 94, 

37.94. 

36. C2* 

39* 1 3* 

39. 57 , 

40.24 » 

ViRLM 

Si 1 

40.76. 

41.05. 

4 2. 1 6. 

43.05* 

43*50, 

43. 37 . 

44, C9. 

\1RLM 

312 

45.72» 

46. 6U. 

46.97. 

46.97. 

46.83* 

47. 27, 

47.49, 

ISRLM 

313 

46. 31 • 

46.90. 

49.34. 

49. 19, 

49.71 . 

49.79, 

50.01 , 

VRLM 

314 

51.04. 

51.12. 

51.71. 

£2.67, 

53.63, 

54, 15, 

54,60, 

V.RLM 

315 

55. 19. 

5S.63. 

55.86. 

£5. 65 • 

56.30. 

56. CO . 

56,60. 

V\RLM 

316 

56.62* 

57.46. 

56.22. 

£8. C2 , 

59.70, 

59.AI , 

56,59 , 

ViRLM 

317 

57.65. 

57.63. 

57.34 , 

£6. 52. 

56.00. 

55, 93, 

55.4 1 . 

V.PL1 

310 

55. 12. 

53,63. 

52. 3C. 

£1.56. 

50.38, 

49. 64 , 

49.19, 

ViRL^-l 

3 ! 9 

46.06. 

47.57, 

4 6.3 1 • 

. 44. 98 • 

44.01. 

43.05, 

42.90, 

V.PLM 

320 

42.90 , 

4 2.31. 

4 2.46. 

42.30, 

41 .94, 

41.50, 

41 ,20, 

y:PL/ 

321 

40.90 . 

35.94. 

39.13. 

30. 63, 

‘ 33.91, 

38.83. 

36,24, 

ViRL’-l 

322 

36. 17 * 

37. 50. 

36.03. 

36.17. 

36,09, 

35, 80 • 

35. SB, 

I'.RLM 

323 

35.06. 

3 5.13, 

34.47, 

34. 24. 

33*56. 

32,99 . 

32 • 04/ 

V,RLM 

324 

DATA D 7/ 

67,62. 

66.25. 

68. 93,. 

25, ] 4. 

25. C9, 

25.30. 

V.RL •4 

325 

26. 1 1 * 

26.65. 

26.46, 

26. 36 , 

26.31. 

26,65. 

27,33. 

V. RL‘! 

326 

27.33. 

26. 1 1 « 

26.75. 

29*09. 

29*40, 

29. 72 , 

30.26, 

tPLH 

327 

31 .24. 

3 1 . 32, 

3 2.3 6, 

22.90, 

33*33, 

34. 36 . 

3S.43, 

V.RL \ 

328 

3 6* 63 « 

37.04. 

37.53, 

37*97 * 

38.31 ♦ 

38, 36. 

30, 14, 

»iALM 

329 

39. 04 * 

30. 89, 

38.75. 

28.65, 

37.97 . 

37,62, 

36,89, 

V.RLM 

730 

36. 50 . 

36.36. 

3 6 . C- 1 , 

2‘J. 72 » 

35.67 * 

3**. 94 * 

34.77. 

M 

33 i 

34.41. 

34. C6. 

33.53, 

2 3. 19. 

32,55. 

31 .43. 

30.05. 

tePl.f. 

332 

30. >.i 9 « 

30. 26. 

2 9.77. 

? 9 . 3 V , 

28, 69 . 

20. 3 1 , 

2V - 82, 

KPL'-l 

3 33 

27. 14* 

26.75. 

2 6,36, 

2 6 * J •-» , 

2£.. J7. 

20.43, 

24.80, 


334 

25.09* 

24 .41, 

23.77, 

23* 62 * 

23.82. 

23, 02 . 

24.02. 


3 3 a 
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« 

2?. 04. 

25.7?. 

25. 97. 

2 5 * :> 6 • 

2 £ . 4 9 , 

24.7''. 

V.l- L’< 

3 3-6 


24* I2« 

23. 42, 

?3.6t. 

23. 1*. 

22 . '.0 . 

22. -I?. 

21.48, 

WRL‘1 

3 37 


20* 70 1 


1 9 . V t . 

1 V . 1 , 

1 C . 5 6 , 

17.97. 

17.34, 


3 .’8 


16*60 • 

1 c » 36 . 

1 f . 1 2, 

15. 14 . 

1 5 . C 0 . 

14,17. 

14.26, 

\ n i 

;* .1 


14*?6» 

14,02, 

12.76, 

13. ?4, 

12.75, 

12.95. 

13.08. 

w;:i. 1 

34 ' 


14* 2o . 


1 5.7 3, 

16.73. 

17.14, 

17.70, 

lb . 56, 


3' 1 


t n * 6 » 

1 '> « 6 2. 

21.04, 

21 .63. 

22,07, 

22. 80 , 

23.4-3, 

U.''L 5 

2 


24*02 • 

24.41. 

24.0C* 
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24*64. 
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WPLM 
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17,44 , 
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43C 

26.77, 
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03.Q6 , 
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59. 81 , 
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57.76, 
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V.r-L '1 

492 

55.42 , 
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56.04 , 
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62.15, 

62.45, 

62.45, 

VRLM 

496 

64.3 5 , 

64. 54 , 
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V.L'LM 

497 

67.03, 

67.62, 

67.96, 

V-RL * 
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06.34 , 

66.40 • 

6H. 40 , 

l.RL ■1 

4 09 

69.5/ . 

70. 15, 

69.76, 

VRLM 
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7C .35. 

70. 35, 

70.10, 

VRLM 

t./> 1 

6 /‘. .52.. 

66.44, 

60.40, 

V Rt.M 
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V-RLM 
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V,‘.L'n 

5' 6 

37.72, 

37. j7. 

3 8 . 1 •/ , 

3 7 • C j , 
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< «« « V t 

4 ‘J . 2 7 ,. 
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45.33, 
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46 * 5 3 * 
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5 9 • 5 1« , 

60.15, 

-1 

M2 
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62.22, 
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55.63, 
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67.23, 

67. 70, 

60.08, 

69. A7, 
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69. 10 , 

70.73, 
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71.77, 
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7 2.66, 

72.36, 

72.38, 
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73.40, 
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73.91 , 
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75.1 7 , 
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75 • V 1 » 
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75.97, 
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78,56, 

79.47, 

79,34 , 

79.84. 

79.54. 
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79 . 98 , 

81 *32, 
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83.91 , 

V<RLM 
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64, 33 , 

64,72, 
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16,37 . 
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87.0V, 
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69,46, 

9C.27, 

90.04, 

91.0 1* 

91.03, 

92.12, 
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92.12. 
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92.64, 

93.03. 

93.38, 

94. 05, 

93.63, 

V.RLM 
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94, 19, 
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93.38, 
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93.75, 
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95.01/ 

ViRL ■! 
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DATA Hi 2/ 

65,57, 

65.67, 

65. 90 , 

66 . C 6 , 
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66,93, 

hf?LM 
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66. } 5 , 

65.06, 

65.62* 

64,74, 

64*06 , 

63, 67 , 

63.23, 

1-.PLM 

S26 
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62,54, 

62.98, 

63. 57 , 

64*54, 

64. 30 , 

63.71* 
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6 3, U.6 , 

63. 47, 

64*15, 

64 . 83 , 

65*32, 

65,06, 

65.57, 

WRL.M 
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65.07, 

66,16, 

67.42 , 

68,20 , 
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67.60, 
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A, "j » 

67,23 f 
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67.96, 
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25.04, 

liRLM 

532 
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25. 43, 

2C.72, 
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25.72, 
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25,04, 

WRL A 
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24 .16, 

23.63, 

2 2.9b, 

22. 51 . 

21.97, 

2 1* 14 , 

20.99, 

inrlm 

£34 

21', 43 , 

22.?6, 

2 1.67, 

21.34, 

2C.99, 

2C*S6, 

19.92, 

. viRL ^ 

535 

19,46, 

1 6.95, 

17.92, 
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16.22, 

15*43. 

15,24. 
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17>, 6 1 . 

13,70, 

13,34, 

13.09, 

12.70, 
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11.92, 

ViRL 1 
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6,70. 

HRLM 
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6.31, 

6.41, 

9.44. 

9.92, 

10.51 , 

11*39. 

12.12., 

WULM 
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12,41. 
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14,51, 

15.53, 

16,26, 

17.63. 

18.17, 
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16.60, 

19.48, 

1 9.5E, 

20.17, 

2C.51 , 
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21,92, 

¥iRL 4 
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19.97, 
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19*04. 

18.41, 

\^RLM 
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17.97. 
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97.00, 
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V.RLM 
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97,82, 

9 7.43, 
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70f5 

• 

-71.03, 

-71,96, 

-75.74, 

“72.83, 

-72.88, 

-73. 52 . 

-73, 91 ♦ 

W R L M 

VO 7 

• 

-73.03, 

-72.80, 

-75.80. 

-73*03. 

-72.74 , 

“72.45, 

-72.44, 

WRL‘€ 

760 

• 

-72.40 , 

-72.54 , 

-75.15, 

“72.79, 

-73.31 , 

“74, 69’, 

-74.00, 

WRLM 

709 

• 

-7A. 49 , 

-73,96, 

“73.6 1, 

“73.61 , 

-74, 15, 

-74.69 , 

-74.39, 

WRLM 

77C 

« 

-74.25. 

“74.49. 

“74,96. 

-74.93, 

“74.54 , 

-74. 35 , 

-75.08, 


77 1 

• 

-7f>.37. 

-76.30, 

-76.20, 

“75.96, 

“76.54 , 

“76,83. 

— 7 6 # €> 4 , 

ViHLM 

77 2 

• 

-76.25, 

-75.9 1 , 

-76.15, 

- 7 5 * 9c» , 

“76.00. 

-76. 1 5 , 

-7V,0G, 

v;rlm 

773 

• 

-77. ?7, 

“77. 17, 

“77.61, 

- 77. 95, 

“78.54. 

“70,93, 

-79.4 7, 

WRLM 

7 7 / 

• 

-79. 27 , 

-79. c n, 

-no. 1 c, 

-£0. 15, 

“80,39. 

-00, 25 , 

“00 ,44, 

WRL'l 

775 

• 

-79. I * 

-ec.25. 

-e 1 . 2 3, 

“62.20 , 

“82.73, 

-53. 42 . 

-04,25, 

WRLM 

776 

• 

— Ci *'.■ .64* 

“0 5. IV, 

“35,71, 

—06. 15, 

-36,20, 

— 0 C- » 6 S . 

-67.22 . 

wnL'-i 

7 77 

4 

- 0 7 • 2 7 1 

“ G 7 . c 7 , 

“06.54, 

“66, 10. 

“6G.2V , 

“SO. 2P . 

— 0 4 . o 3 , 

WRLM 

770 

4 

“04.73, 

“64,95, 

— 0 4 . 7 3, 

- C . 2 7 , 

• C 5 » G 5 , 

“Cr.. 95 , 

-05.37, 

V, R L ' • 

'r 7 9 

4 

“05.27 , 

“05*03, 

“84,73, 

-65.37, 

-85. 90 , 

“B6.C 0, 

-05. 32. 

ViRl.f 

VLO 

4 

-64. S3 . 

“Ofi. 12. 

-84.60, 

“ 6 4 . 5 > , 

“34 . 3* , 

“ 54 .00, 

— 0 3 » A 6 , 

VvP.l \ 

7 1 1 

4 

-0 3* 6 . 

“G3.90. 

“ B 3 . C 6 , 

-63.97. 

“83.01 , 

“8 3. G€> « 

-03,0 , 

WRL M 

732 

4 

“63./ 7 . 

“03.42* 

-8 3.56, 

- 63,27, 

“03.47. 

“53. 32 , 

— 03. 2 2 , 

teRLM 

/03 


1-99 
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* -03.12t 

-B3. 37. 

-33. 1 7, 

- £3. 22 , 

CATA Alv/ 

17C, f:0. 

17C.50, 

1 >0.17, 

1 o7 » 7 u f 

1 3 6 » ■ ' , 

1 -3 5 , 6 4 , 

1 C 4 . 1 : j « 

165« l « 

16 7,5 4 , 

1 4 t . 4 3 , 

1 C V . 61 , 

16V * 10 ? 

1 6 0 . } 3 , 

16 7.39, 

1 1 6 . f. 3 » 

1 6 3 • £ 5 1 

1 6 1 . o , 

161,36, 

1 60,51 , 

169.03, 

1 6 . 2 1 , 

161.47, 

1 62. 9 3 , 

164* 7J , 

1 6 4 2 1 , 

162.73, 

1 63. 16 , 

162. 73 , 

154.43, 

164.14, 

• 1 £5. 17, 

167^76, 

ice, 73, 

1 7 0 . 2 G , 

169.91, 

1 6 C . 6 , 

1 65, 76, 

165. 54, 

1 63.54 , 

157« . 

1 5 S . 4 5 . 

153.77, 

1 53.25. 

1 SO»CO » 

i<; e. ‘32. 

146,23, 

1 46.23, 

142, 15, 

14 1. 19, 

14C, 16, 

1 29.42 , 

133.94 , 

132.46, 

131.13, 

1 20.39, 

126.09, 

124.91 , 

123. 36, 

121.13, 

1 1 6 . 5 1 . 

i 13,66,. 

112 , 7C. 

1 11.44, 

107. 37 , 

I06t 26, 

IC4.4fi, 

1 C4. 1 1 , 

100. 34, 

95,23, 

97.52. 

9 6.41, 

92.57. 

5 1 . 7 3 1 

9G. 1 2 , 

ee.72, 

&2«65, 

8 1.39, 

8C,72, 

79.32* 

CATA fcil9/ 

-33* 66 , 

-83,90. 

-64,44 , 

-65. 17. 

-84.88, 

-64 ,4 9, 

-84,39, 

-04.44. 

-83,71, 

-83, 81 , 

-83,71 . 

-82.64 . 

-82,64, 

-02,63, 

- 82.45 , 

-61 • 32 , 

-01.61 , 

- C 1 . 5 1 , 

-80, 93, 

-79.03. 

-7V.95, 

-77,76. 

-77,65 , 

-76.93 . 

-76.54, 

-76. 2C, 

—75. V 6 , 

-74. 10, 

-74. 10. 

-73.76, 

-73.42, 

-72.30, 

-72.49, 

-72,25, 

-71.71 , 

-69.06 , 

-69,62, 

-69.27. 

-69.62, 

-66V3S , 

- 6 C. 25, , 

-67. Cl, 

-67,96. 

-67. SI . 

-67, r, 2, 

-67.57, 

-66.93, 

- 66 . 35, 

- 6 £. 0 fM 

-6S.81 , 

- 65. 23, 

— 65 • 3 2 , 

-65. 1 3, 

-65. 1 3, 

-60* 32, 

-65.37, 

-es. 06 . 

-66.40. 

- £6.40 . 

-65. 27 , 

-65. 13. 

- 6 4 , e C , 

-64,93, 

— 66. 76 » 

-65.42, 

-60.96, 

- 65. 76, 

-65. 52 , 

-65.52, 

-65,42, 

-65.42, 

-65. 37 . 

-65.42, 

-65,57, 

- 65.06 • 

—66. 40 ♦ 

— 6 6.45, 

-67, 1 3. 

-67. C3, 

DATA A20/ 

7 5.2 3, 

74, 5R, 

73. 17, 

60.44. 

67,03. 

6 5 ; 1 0 , 

63.48, 

117*14. 

1 16, 32, 

1 1 5.07, • 

1 15, fJl , 

115.21 * 

1 14.92, 

114,47, 

1 14. 33, 

I 14.33, 

114,33. 

1 1 3. 8P, 

1 13.03, 

1 13.36, 

11 4. 1 C, 

114.47, 

1 15.2 >, 

1 10 . 04 . 

120.25, 

12 l,5t. 

121 .50 , 

122.99, 

1 2 3 • 7 3 , 

124.32, 

1 24.61 « 

126. 54 , 

1 2 7 . C o . 

12C.3 1 . 

1 ?6. 90. 

130.73. 

1 3 0 , 5' 3 , 

1 3 ) . 3 5 , 

1 22. 16. 

133.5/ • 

134,61, 

13 5,72, 

1 26.30. 

136. VO, 

1 36, » 6 , 

1 3( .4 6 , 

1 25*64, 

13C«i;2, 

1 39, 56, 

14 1 . 0 A . 

14 1 , 34 , 

14 2 .tS, 

1 4 J , / , 

U 2 . 5 2 . 

1 4 2 . 60 , 

I 4 3 « <.1 6 , 

14 4.2 3 , 

Is j. 9 3. 

1 44 . 3r> , 


"03427, 

-02.03 • 

- 8 J . 0 1/ 

7.rcL‘^ 

7--’.4 

1 • 

1 69. 39 * 

160 , 73 , 


7 4*3 

1/.3.34, 

I 64 . 06 . 

1 64 ,21, 

v.;;l m 

7.* 1 

1 C9.69 , 

1 7 : . 2 1 , 

16 3. > 5 , 

v<r*L 1 

^ ■ 7 

161.25, 

1 62. r.4 , 

1 64 , C 6 » 

v> P L r? 

T.lii 

1 59 . 7 7 , 

159. 32, 

159, 02, 

v.r i. \ 

7/9 

1 £ 3 , 6 9 . 

16/' . 73 , 

1 64 ♦ 36, 

•A!.‘L'-'. 

79C 

1 61 « 92 • 

162.50. 

162,14, 

v.-a.r 

79 1 

1 -.1..17, 

165. 9 1 , 

166,43, 

H L t". 

7 j2 

170.65, 

1 09.76 • 

16Q. 13, 


77 3 

1 C2 .36 , 

150.29, 

158.81, 

tr.'iLM 

7 9 4 

152.89 . 

I52cr 0. 

151 ,04, 

V-.VLM 

795 

145.06, 

1 44.75 . 

143.26. 

>iKLX 

7 06 

120,45, 

136.83, 

1 35. C5. 


707 

1 30. 1 6, 

1 2 e , c ^ , 

128. C2, 

V. SL •. 

798 

120.39, 

116,25. 

117.21, 


799 

1 1 C , 7 7 , 

1 1 0 . ! 3 « 

1 09. CO, 


f.cr 

1 04 ,04 , 

102.70, 

101 .45, 


ec 1 

95.85, 

94,71 , 

53,60, 

Vr?LM 

002 

C6,Q7 , 

85. 90 . 

03.98* 

ft'iLM 

ao 3 

77. i4 , 

76. 36, 

76.06/ 

ViPLM 

004 

-04,59, 

-84.90 , 

-C5. 1 2* 

VsRLM 

ro5 

-64.70, 

-84.44 , 

-84.05. 

V»RLM 

eo6 

-03.27, 

-83.1 2 • 

-82,80, 


0C7 

-02,20 , 

-B2.C0. 

-SI .76. 

ftRLM 

800 

-GO .49 , 

-30.34 , 

-79,55, 

V.RLH 

809 

-77.81 , 

-77.61 • 

-77. 17, 

VtRL'l 

610 

-75.37 , 

- 7 4. 39 » 

—74,30, 


81 1 

-73.27. 

-72*03, 

-72.40, 

V.RLM 

L 1 2 

-71 ,42 , 

-7C. 30 , 

-70.20, 

Vkfa.M 

ftl 3 

-69.23, 

-69*42, 

-63.04, 

w^:lm 

bl4 

-67.06, 

-67. 76 • 

-67,52, 

V.RLM 

815 

-66*69, 

— 66. 35 • 

-66.20 , 

WRLM 

016 

••65.01 , 

-65.62. 

-65. J2 . 

»>RLM 

Sir 

-65,57 , 

-65.67, 

-65.37, 

WRLM 

oia 

— 66,01 , 

-66. 10 ♦ 

-65.27, 

YtRLM 

019 

-64,54 , 

-64,88 • 

-65.42, 

luRLM 

820 

-64.98, 

-64. 60 . 

-64 . 84 » 

hRL 1 

62 1 

-65. 1 3, 

— 65. 47 • 

-65.23, 

hRLM 

622 

-65.71 . 

-66. 01, 

-66.0 1 , 

V.RLM 

623 

-67.96, 

-60. 64 , 

-69.23/ 

■*RLM 

C24 

72.43, 

70.95 , 

69*77, 

ViRLM 

025 

61 .70, 

60,37 , 

I 17.95, 

’n.RLM 

626 

1 16* 1 A, 

115.51, 

1 15. Gt . 

WRLM 

027 

i 13.01 • 

114, lb. 

113,44, 

ttPLM 

028 

1 13.22, 

1 1 3. 59, 

113.44, 

WRLM 

8.? 9 

1 16,10, 

1 1 7. 58, 

1 18.40. 

HRLM 

630 

122,54 , 

122.76 , 

122,69, 

fcRl.H 

031 

124.32. 

125.35, 

1 25,50 , 

v>RLM 

632 

130.02, 

13C . 16, 

13C.53. 

t. R L M 

633 

133,05, 

13 3.13, 

1 32.4 6 1 

Ir.RUM 

P34 

137.27 . 

1 37. C6 , 

13 7.71, 

t f<L ‘••i 

0 3 5 

1 36.97 , 

1 36. 90 . 

130.91, 


6 3 6 

141.70, 

141.64, 

142.15. 

V. R L K‘. 

b .i V 

1 43. C4 , 

143. 12, 

1 4 4 , f . 0 . 

im.M 

030 

I 5.04, 

145, 78 , 

146. <.0, 

V.RLM 

839 


1-100 
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I4t,32, 

1 4 il . 3 7 , 

1 4Vr 24, 

1 40 ;oc , 

1 4 c. 4 5 , 

148.37, 


*• 

1 6 • >6 » 

1 SC. C 0, 

1 4 9 , 4 f , 

1 6 C . fi 1 , 

1 ^ y 8 , 

1 5 1 . 8 , 

1 5 i .46. 

-.CL 1 

8*'. 1 

1 r; a • 1 ,> f 

1 52, 96, 

1 5 3 , 4 C , 

153.11, 

if 3. 1 0» 

1 0 J . 1 1 , 

1 53. < 9» 

V.f’L.7 


' 1 « ao • 

1S3. r;3. 

154.46, 

1 53, 7C, 

i 1.4 .14, 

153.50, 

1 Ci 2 • t- ■? , 


L • • -V 

lbJ.03. 

153,1 1, 

132.46, 

1 52.52, 

152,29, 

152, ' 4, 

151.4-1/ 


f ' - • 

DATA eao/ 

-6;, 37. 

-69.3V, 

- C ? . 13, 

-62.7?. 

-63.15, 

-67, 37 , 

V.2L 1 

•; 4 5 

-67* A 7 » 

— 66,90, 

-67. C P, 

- f 6, 04 , 

-66,98, 

- 6 f . e*> 9 , 

- .’.4,4 1 , 

V.-7LM 

f.4=> 

*3 A • t> j » 

-34.26, 

-33.77, 

-22,94 . 

-32. 3 1 , 

-31,77, 

-30.90. 

1-WL •••! 

2 V7 

"■ 30 • 3o « 

-29. ‘:2» 

- 2 C . 7 C , 

-27.72, 

-27.33, 

-26.90, 

-26.31 , 

v.n.L'1 

bve 

~ 25 • Od « 

-24,65, 

-24,26, 

- 2-3.73, 

-23,34, 

-22, 70 , 

-21 ,67, 


o • 9 

« a 0 * A 6 f 

-2 1 . 6C , 

-2C,9C, 

-20.93, 

-20.26, 

-2C. 26 , 

-20.4 1 , 


8 j 0 

— X 4’ • 6 3 * 

-1 9,50, 

-19,29, 

-18*41, 

-10.02, 

-17.29, 

. —16.61 , 

k.r=L 

851 

~16» 1 7 • 

- 16,90, 

-1 6.22, 

- 15. 67 , 

-15.34. 

- 1 4. 60 , 

-13,97, 

V)RLM 

L52 

-13,97, 

- 13. S3. 

-14.41, 

- 14. 22, 

-14,65, 

-13.73, 

-13.24, 

V, R L ■< 

053 

-12.90 , 

-12,36, 

-1 1,97, 

- 12.61 ♦ 

-12,22, 

-11,67. 

- 1 1 . C' 5 , 

V.r<LM 

0 j4 

-1 1 ,4A • 

-1 1,92, 

-1 1.97. 

-11.73, 

-12,07, 

-11.17, 

-12.66, 

l.-RLM 

855 

-12,95 . 

-13.44, 

-13.76. 

- 14 • 22, 

-14.95. 

- IS. 3C , 

-15.78, 

V. F’ L M 

t 5 5 

-It). 17 » 

- 1 7.24, 

- 1 6.95, 

- 16,26. 

-15,24, 

-14.22, 

-13.14, 

V.PLM 

L57 

—12,75. 

-11.92. 

- 1 1.53, 

- 10.75, 

-10.31 , 

-11,24, 

-11 .48, 

V.^'LM 

85S 

-1 2.02 , 

-12.65. 

-1 2.56. 

- 14,07, 

-14.12, 

- 1 4 , t. 0 , 

-15. 14, 

VaWLM 

OjO 

-16,07, 

-17.00, 

-1 S.2 1 . 

-18.70. 

- 1 6 , 7 C , 

-19*34, 

-19, 97, 

V/RLM 

86C 

-20 ,21 , 

-20.26, 

-21.24. 

-21.33. 

-22,3 1 , 

-22.70 , 

-23.45, 

ViRLM 

06 I 

-24,07, 

-24,51. 

-25,33, 

— 25 « 33 , 

-25,68, 

-2fc. C2 , 

-26,31 , 

hRLM 

C62 

— 26, 55 t 

— 26,99, 

-27.3£, 

-28,41, 

-29, 1 9. 

-24. 63, 

-30. 1 6, 

ViHL-l 

b63 

-30 . 56 , 

-31.04, 

-31 ,63, 

- 22.06, 

-32,55, 

-32, to , 

-33, 67/ 

V.PL. ^ 

86 4 

DATA A21/ 

13 1.04, 

15C,44, 

1 ro. 30, 

1 49.56, 

1 46,74, 

1 47.56, 

V. ti L *-1 

ft 5 

146,39, 

145,86, 

144,75, 

1 43. 86, 

142,97, 

142*00, 

141.34, 

VtPLM 

560 

139.66, 

1 39,56, 

139,46* 

129,12, 

1 29*56, 

139,71, 

139.34, 


B67 

136.97, 

1 38, 16, 

137.49, 

127.49, 

135*CS, 

1 38*0 1 , 

1 38.73, 

ViRLM 

868 

137.71, 

137.49. 

136*75, 

1 25,79, 

136.09, 

135.C5, 

135. 12, 

KRl.M 

069 

134.09, 

133, 27. 

132. 1 6, 

1 21 « 50 * 

130,61, 

129. 20 , 

127.43. 

hRLM 

670 

127,43, 

125.00, 

124.61, 

124.17, 

122,26, 

1 22.76 , 

121*65, 

V.RLl 

671 

121.13, 

119*43, 

1 1 e.25, 

1 17.29, 

1 16.32, 

295,44, 

296.C3, 

y.PLM 

872 

297.56* 

298.47, 

296*47, 

2 96* 16, 

297,06, 

297. 73 , 

298.40, 

V.'RLM 

87 3 

299.14. 

3C C • 9 1 , 

3f 0.32, 

3f0,76, 

302,39, 

303. 21 . 

3C4. 10. 

v.r>L 1 

874 

305. 26 , 

305.72, 

305. 87, 

3C5. 65 , 

3C5. 65 , 

306, 69 , 

307,43, 

Y.PLM 

875 

306.31 * 

309.20, 

309.94, 

311. 72, 

313,05. 

313. C5 , 

313,87, 

fcPLM 

876 

314.31, 

314,90. 

3 1 5. 8C , 

3 16.46, 

315.72, 

31S, 27, 

314,08, 

Vi R L M 

677 

314.24. 

313,94, 

314.66, 

3 15,64, 

316,60 , 

317,27, 

31 3, 16, 

Y, r. L M 

878 

316. 23, 

319.19, 

319.64, 

320 . 45 , 

320 ,90 , 

320.45, 

320, 16, 

ViRLM 

079 

320.75, 

321.19. 

322.02, 

3 24.45* 

325.26, 

325. 06, 

326.52, 

VtPLM 

800 

327.4 1 • 

328.22, 

329.33, 

329. 70, 

330,44 , 

331.70, 

332. 81 , 

V.RLM 

881 

332,2V, 

332.07. 

333.32, 

3 24 . 44 , 

335. 2:>, 

336. 74 , 

330.22, 

ViRLM 

682 

339, Id , 

336. S9. 

337.70, 

326, 01 , 

335,92, 

3 34 .74 , 

335.25, 

Wf^LM 

8C3 

336 , 07 • 

336. en. 

337.92, 

3 27. 70 . 

336.59, 

336. CC , 

337, 1 9/ 

LRLt 

£94 

CATA 021/ 

-24.60, 

-35.53, 

- 26. 26, 

-37.19, 

-37. 33 , 

-37.87, 

wr.LH 

885 

-38.36. 

-30.36, 

-37,92, 

-28, 55. 

-38.26, 

-37.87, 

-37.5 3, 

V.PLM 

636 

-37. 23 , 

-3C,S5, 

-35.87, 

- 25. 33 , 

-'34,89, 

-33.63, 

-34,65. 

V-PLM 

807 

-33. 97 , 

“34,21, 

-34. 6C, 

- 23. 62 f 

- 23,4 3 , 

-32.99, 

-32,50. 

Y;PLM 

Pa B 

-32. 26 , 

-32. £4 » 

-35. 99, 

-23. 19, 

- 34 . 1 , 

-J3. 07, 

-33,09, 

V.PLM 

689 

-31.07, 

-31.38, 

-31,24, 

- 20. 60 , 

-3C .99, 

-31.56, 

-31.30. 

V.RLM 

890 

-31.97, 

• 31. C2, 

-32.4 1 , 

- .■’3,04 , 

-33.4 3. 

-33. 77 , 

-33.07, 

V.PLM 

0? 1 

-34, 1 ! , 

-34,02, 

-34,45, 

-24. 70, 

-34.4 1 , 

02,59, 

82,78, 

V R L M 

09 2 

62.93, 

82, 34, 

0 1.06, 

( C • 96, 

6C ,93. 

60,59, 

01,17* 

\i RLM 

£93 

61 ,4 7 • 

81. 

81.42. 

£1.76, 

61.00. 

82-*^4 , 

82.10, 

YPLM 

8 94 

02,25. 

82,59, 

82,15, 

El. 71 , 

81*42, 

81.7 1, 

01.37, 

YiRLM 

695 


I’lOl 
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a 1 « c" 6 ( 

82.54. 

31.95, 

£2.10, 

cl. '37. 

6 1 « 9 5 « 

31.61. 

KkT.LM 

L ‘6 

B 1 * :j 7 . 

81.08. 

81.17, 

£1.42* 

yCl ,61 • 

8 1 6-.>, 

3 I * 1> 1 « 

•AfL-*. 

t } '/ 

6t .Cl ■ 

82.29. 

62.73, 

£2,83. 

£’3. OB, 

53.27 » 

8 2.03, 

fePL 

8 7 A 

LP.ftit 

0 2.34* 

82 . 6^ « 

£2.3^ , 

62 ,49, 

9?, r-.4 , 

8 2.93, 

WI'L 

i: .n 

PP t 

3 j. 1 7, 

53.37, 

63.51, 

b 3 , 3 2 , 

83.08, 

B J • 2 2 , 

V- T-' 1. ■ ' 

o:'' 

<> J • 1 * 

8 . 5 1 , 

83.22. 

83.61. 

i3.32. 

3 3, 6 1 , 

C3.42, 


* ■ ■ X 

8 3 « 3 .> # 

62. 73i 

62.88. 

83. C 5 , 

82.59, 

82. CO, 

83.0 3, 

' ■ L ■ ' 


82 • o<* » 

82. 35, 

82.25, 

£2. CO . 

81 « 6 6i * 

81*42, 

01.12. 

/.ri ■< 

or- 3 

a 1 • 32 t 

.81 . 76. 

B 1 . 6 C , 

81 . 27, 

8 I , 1 2 * 

RC.54, 

8C.73/ 

ft A L y 

9 7 f > 

DATA A22/ 

337. 43. 

34f ,07, 

3 4C . 51 , 

34C .95, 

341.18, 

341.47. 

V 

Dft5 

3, 

343. 25, 

344.BC, 

345,76, 

3h6.36, 

34V. 9 1 , 

346 . CO , 

fti : L 

9 J 6 

34 6 • A 3 t 

345. C2. 

344,26, 

344.43, 

343,47, 

343.03, 

343.10, 

V.r<LM 

90 7 

342.73. 

342.51. 

342. 1 4. 

340.66, 

340 .59 . 

3 39.62. 

340.36, 

V.KLM 

9 30 

340. 07. 

338.66, 

339c 55. 

340. C7» 

339. 59 , 

338,06, 

339,9 3, 


9:=y 

336. •id* 

337*62, 

337,70, 

3 33* 36, 

339,33. 

339. 62, 

330.83. 

.‘.PLM 

91 C 

33 7 • tiij I 

337, 25, 

33S. f-C . 

3 :• 4 , 4 4 , 

333.26, 

332,44 . 

332.22. 

■a :-s l m 

Cl 1 

333. < 6 t 

334. C3. 

336,5 1, 

3 37,40 , 

3 3 7 , 7 C , 

338.07 , 

337.85, 

te L M 

912 

337. Id. 

336.29. 

33E. 1 8, 

3 34 22 , 

333.33, 

332. 52, 

332. C7, 

WTL *1 

913 

33 1 . 03 1 

33 1. 26, 

33c,r r, 

332, 89, 

334.00 . 

335,03, 

336, 22. 


9 I 4 

335.031 

33C.33, 

333.70, 

332, 63. 

3 31.92, 

331*11, 

330.C0, 

Vi R L M 

915 

3?4. 1 1 • 

328.30, 

327.4 1 , 

3 26,63 , 

326, 03, 

324. 22 • 

324 .45, 

ViPLM 

916 

323.34 t 

322. 3tt« 

32 1 . 6 4 , 

3 20 , 4 5 , 

320 .16, 

319*34, 

319.19, 


917 

318. 16 t 

310.08. 

317,7 1. 

3 17, 34 , 

316.46. 

3 1 5 4 o Cl , 

3 1 S.C 5, 

ViPLM 

910 

313. i>0 > 

313. 1 3, 

312,53, 

3 12, 01 , 

310. 9C , 

31C. 31 , 

309,65, 

V.9LM 

919 

310. 2A . 

30 5.65, 

309,4 2, 

3C9, 35, 

307.80, 

307.72, 

306.91 , 

arlm 

920 

30 7. L7 « 

307.57, 

3Cr.C9, 

3 <■ 8 . 0 2 , 

3t7.2C. 

306.32, 

306*03. 

'*RL-1 

921 

305 t i 

3p7. r?» 

3 r . A A . 

30?, 24 T 

? r ri . ? ft , 

3 ft P . e* 1 . 

3 ft A . 0 ft , 

WPl ,M 

922 

*9 0K "9 ' n ^ 

V W 1 « t 



*» A r; ^ ft , 

^ . 9 a . 

30 5 i 9 5 : 

3 ft A . 3 ^ . 

¥OI M 

c » 

30 7. 1 3 1 

30 7, 65. 

306. 9 1 , 

3C6, 76. 

3C7.20 * 

308. 31 , 

309,35/ 

’uHLM 

924 

CATA 822/ 

8 1 • 12, 

31 .68. 

£2,15, 

81 ,56. 

61*27, 

01 .47, 

URL 4 

92 5 

6^.47. 

61.61, 

B2.2C. 

C2, 29, 

61.90, 

61.81 . 

81.51, 

ARLM 

926 

80. 88 1 

G'C. 78, 

8C .73. 

. eo. 10 , 

60,30. 

80.30 . 

79.71, 

VkOL'l 

927 

79. Ol 1 

79.61 • 

78.93, 

78.83. 

77.95. 

77.47 , 

76,54. 

y.«LM 

920 

76.16. 

76.30. 

7S. 9 1 . 

75 , 1 7 . 

75.47, 

74. 74 , 

73.C^6, 

\s«L 1 

929 

73.71 . 

74.25, 

73.66. 

73.57, 

73.37, 

72.74 , 

72.69, 

WPLM 

930 

73. 27. 

73. 22, 

73.57, 

72.93 , 

73.37, 

73.27 . 

72.59, 

•aRLM 

93 1 

72.20 . 

72.69, 

72. 1 0, 

71,91, 

71,52. 

71,22. 

70,88, 

IrRLM 

932 

70.90. 

70.69, 

7 1.32. 

71,57, 

71.47, 

71,08, 

71.22. 

WRLM 

933 

70.74, 

70.35, 

70. 1 5, 

70 . 4 0 , 

70, 20. 

70.25, 

69.9 1, 

ViRLft 

934 

‘ 69. 62 » 

68.93, 

68, 93. 

C6. 79, 

60.49. 

68. 54 , 

68.25. 

V.PL-1 

9 35 

66. C5 « 

67.47. 

67.66, 

67.47, 

6 6 • 8 8 . 

66. 55. 

65.86* 

IkRLM 

956 

65.62 « 

65.42. 

65.18, 

64, 98. 

64.59, 

64. 10 . 

63.67, 

V.RLM 

937 

62*79. 

62. 1 1 , 

6 1,7 6. 

61,32, 

60,45. 

59. 67“, 

59.52. 

»iRLM 

936 

59. 57 . 

6C. 06. 

60. 35, 

60, ISi 

6C . 1 1 • 

59, 57 , 

59.01 , 

V.RL 1 

939 

60.04, 

6 1.23, 

62,15, 

C2.69f 

62.00, 

63.25^ 

63,71 , 

V.RLM 

94C 

64. 10 * 

65. 1 3. 

65.42, 

65.91 , 

65.36, 

66. 1 5 , 

6 6.74, 


9^ 1 

67.06, 

67.57, 

6 7.52, 

68, 30 * 

60 .54. 

69. 1 3 , 

69.42, 

Vi R L M 

942 

69.10. 

68.69, 

68,74, 

69 . 32 , 

70.15. 

70. 15. 

69.71, 

VRLM 

94 3 

65. A7. 

69.57, 

7 C, 4 4 , 

70. 74 , 

70.54, 

7C. 15 , 

69.96/ 

V.QLM 

94 4 

CAV7. A23/ 

309.35, 

308.61, 

3 CB, 24 , 

307.13, 

306.40, 

305.72, 

¥RL 4 

945 

305.72, 

3 0 4.54, 

30 4 

3CC , 61 , 

3C4.32, 

304, 1 V , 

303. 1 3, 

t K L *1 

9 4 6 

30 3 . 2 1 , 

302,47. 

302,39, 

3C 1 . 65. 

301 .06, 

3 0 C . C 2 , 

299, C5, 

VRL 

9 ; V 

298*6^. , 

2Vf:.3?. 

2 9 C . 6 9 , 

294 .62, 

294. r-?, 

293.51, 

292. 25, 

, r>L‘4 

9,’. « 

292.03, 

290, 25, 

2 9 C ♦ 4 C , 

2. t , 6-6 » 

2B9. 81 • 

291* 29 » 

202.40, 

ViRL-4 

949 

2 9 1 • , 

200.33, 

2i5C-. 7 7, 

2 r.B, 75 , 

2t:7<59. 

286,6?, 

2 3 6.40, 

y.PLM 

9 5r. 

287. 00 , 

207,59, 

208. 33. 

288.92, 

2 6 ; . 4 4 , 

209. Vrl • 

291.81. 

V RLM 

951 


1-102 



WRLMAP 

Page 19 of 28 
30 September 19 


<59^. 77 , 

293*73, 

2/?, 55, 

2 9 1 . 2 > , 


2 1 .'•v9 , 

21. 14. 

10.8: , 


2 0 . 4 t . 

21.40, 

?C • 1 8 * 

1 cl • A & '. * 

1 7. 66, 

1 C . '■! 5 . 

I 6 , A 1 , 

1 & • A A t 

14, 63, 

13,52, 

1 2 . r>7 , 

10»(>3, 

J 1 .23, 

12.71, 

14. 26, 

17437* 

10. CO. 

2C .63, 

21,14. 

24*77. 

25*2 1 , 

24.16, 

3 44 • 5*1, 

34 3 • 1 0 • 

342.14, 

342.66, 

341.62, 

339. 77t 

33a. ue. 

335.74, 

J27, 62. 

336* 01 » 

337, 25, 

335. VO, 

325.03. 

336*96. 

340.07, 

34C. 2 1, 

3 4 1,47, 

34 4* 1 <* f 

344, 95, 

34 5,4 7, 

2 92. 04 , 

DATA eaj/ 

7C.4C, 

7C 59, 

70. 83, 

7i .Cl . 

7 1,03, 

7 1 ,57, 

71 *ei , 

74.20. 

74. 30, 

74.64. 

74* 98 . 

76* 76. 

75.96, 

7 1 • 8 1 , 

75.71 , 

75.32, 

7 5. fil , 

75,96, 

/ 0 • ^ • 

77.27. 

77, \ 3, 

77.56, 

77.13, 

76 . 06 « 

76.05. 

76*20. 

78 *15. 

79.22. 

79. 32. 

79.52, 

7 9 * 6) 6 • 

76.69. 

79.03* 

79.03. 

79.22. 

73.44 • 

78. 34, 

77,91, 

77.65 , 

77.47. 

77.32, 

76.15, 

76*00. 

77.66 , 

77.27, 

77*32, 

76. 1 5* 

79.95. 

80* IS. 

79.6 1 , 

79.03, 

79 .95 • 

79.95. 

79.7 1 , 

79.95, 

7 d . A 1 . 

70, n n, 

7 f‘ . 6 4 , 

PS. 

63. U6« 

6 3. 62. 

63.18. 

<2,79. 

62.96. 

63.06, 

63.23, 

C3. 71 , 

64*. 69 * 

64.79, 

65* 1 6, 

C5. 76 . 

65*96, 

65.71 , 

65. 96 . 

eO* 76 * 

65.37. 

65. 32, 

64.69, 

ei.47. 

DATA A24/ 

237,89. 

236. 65, 

2f0.59, 

261.23. 

282.34, 

282.45, 

2 L‘4 , j?4 . 

235. 37 t 

235.8 1. 

28 5.5 2 « 

2 86. C4 , 

202. 34 . 

26 1,00. 

279.67, 

2 60 . 12, 

277.01 . 

276.04, 

2 V 5 . 2 3 , 

274. 27 , 

272. 20 . 

271.16, 

27C.4 2, 

270. 20 . 

271.75. 

272.42, 

273.07. 

2 75. 16. 

274. 66. 

275. 53, 

275.53, 

2 75. 82, 

276.66, 

270. 34, 

278* J 2. 

2 7 7. 97. 

279. 00 . 

2 73. 6 3, 

27C,23. 

2 fO. J 2, 

26 3 . 1 Lr • 

282. 7 1, 

232.08. 

2 83. 45 , 

286. 18. 

237. 52, 

286.92. 

2 6 7. a: , 

291 .29 ( 

292.33, 

201.51, 

2 9 1 . 66 , 

295. C7 . 

295,95. 

206.32, 

297. C6. 

29t». 32 * 

296, 10, 

294, 7C, 

2 93. ?,? , 

292. 65 • 

294. 10, 

295.44, 

255. 14, 

291, 96. 

290.55, 

20 1*22, 

2 9:^, 7j , 

250.41 . 

2 7 9 . C u . 

276. '■‘V, 

276, 1 2 . 

271 .Ov. 

2 7 C. .05, 

209-00. 

2/0.42, 

274.49. 

2V5.C-1 , 

27 6.C A , 

275. 30 . 

DATA 624/ 

6i3. 23, 

62,51, 

( 4 # 35. 

04 « 3 6 * 

c \> .on. 

6 4 . C 4 . 

c . r 3 , 

66*35. 

f.6, 74, 

0 e . 1 5 , 

6 6 * 88 . 


292^^5. 

293.66 , 

24 , C 3 , 


952 

y9 . J 7 , 

19.14. 

19.74, 

v.i'L 1 

9 5 3 

2C , 1 I , 

19,37, 

16.70, 

V"L1 

C:>4 

16.2V, 

1 5 • V A , 

16.63, 


C 6 5 

12.19. 

12.11, 

11.15, 

VT.'L'; 

956 

16.11* 

17,52, 

16.4C. 

Vw'LH 

S '*7 

21,74, 

22.43, 

23.59, 

l.i'LM 

9 9 8 

345,84, 

345. 17. 

343.84, 

V.i-I.M 

<•39 

340.c>8. 

339.92, 

339.2 5, 

if.r.LM 

9 vC 

J36.8 1 , 

335*92. 

335.25. 

\.f!L 1 

451 

336.29, 

336.96. 

338.29, 


962 

342*58, 

343.54 , 

344,20, 

‘Apcr. 

<:;6 3 

2 91 » 66 , 

2 9C. 1 1 . 

283.63/ 

hr/ L. 1 

964 

7 1 , 0 B . 

71.37, 

71 .96, 

V.r<LM 

9 65 

72.30, 

72.93 * 

7 3.42, 

v;RL f'. 

966 

75.47 , 

75.47 , 

75.71 . 

V.K’LM 

967 

75.22 , 

75*32 . 

75.52, 

V.f/L 1 

968 

76.93 , 

76. 74 , 

76,93, 

hf/LM 

969 

77.47, 

77.76, 

77.95, 

V.PL-^ 

970 

78.69, 

79. 27, 

79.12, 

hPLM 

97 1 

eo. 2 C* 

SC* 39. 

70.54 . 

ViPLM 

97 2 

76.93, 

7U. 09 , 

76,64, 

V.PL'l 

973 

76.93. 

77, 52, 

77 *•56, 

y.PLM 

974 

76.69. 

77.27. 

70.00, 

y.pi.M 

975 

78.25, 

78. 9b . 

79*22. 

V.PiLM 

976 

70. 7D, 

79. 03, 

79.47, 

V.RLM 

077 

80.00, 

ec* 30, 

79*81 . 

>■ f? 1 . 

978 

84 4 50 . 

64. pf) , 

6 3 . 6 P . 

A 

970 

62.64. 

62. 40 . 

62*45, 

y«nLM 

980 

64.15. 

67*. 25 , 

64.59, 

V.PLM 

90 1 

66.40 ♦ 

65,57 . 

65. 1 S, 

v.m.M 

95 2 

65.96, 

66. 1 0 . 

65, 91 . 

V.PLM 

903 

61.71 , 

62. 1 1 f 

62.79/ 

VsPl.M 

984 

283.96, 

232. 1 1 • 

281*00, 

WRL‘1 

9 8 5 

2 C 5 . 1 5 , 

205. 59. 

2S5.59, 

V.’RLM 

9 36 

2 84 . 7 U , 

283.96, 

203.74, 

V.RU 1 

987 

279.02, 

279. ra. 

277.82, 

y.PLM 

908 

273 *97 , 

272.71 * 

272.05, 

WPL 

989 

2 70.42, 

270. 57 • 

271 *38, 

WRL A 

99Cp 

275.01 , 

274, 56 , 

274,49, 

hPLM 

99 1 

275.01, 

275. 38, 

275.3?, 

'A P L M 

992 

278,41, 

275.00. 

279.67, 

hRLM 

993 

200.71 , 

281.52. 

282.34, 

V-'RL •1 

994 

204.41 , 

284. 93, 

235.67, 

y.PLr< 

995 

2etic4C, 

2B9. 44 , 

290,48. 

VPLM 

996 

2^3.07, 

294.33, 

295. 51 . 

hPLM 

997 

2 9 C- . 9 9 , 

29b. 10 , 

290*69, 

Y.RLM 

996 

292.25, 

2 9C • C 5 , 

291 ,51. 


990 

295.44 , 

294.62 , 

292.99, 

V.RLM 1 rco 

292.9'/, 

293.83, 

293*29, 

V.kl.Ml CO 1 

'2 /4 . 4 , 

273. 0 1 , 

272.05. 

WRL'l 100 2 

27C , t>6 * 

272.0V. 

273.33, 

V. n L 'U C 0 3 

275.67 , 

276. 7 1 , 

270 , 1 9/ 

y.PL‘‘1lO04 

C3.01 , 

64 • C 1 . 

64.02, 

i.kLMl 005 

C< 

6 !i . C 3 , 

65.32, 

Vr R L 1 C- 0 6 

t-e.‘3 9, 

69. 37, 

09. C6. 

WPUW 

1 C 07 
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« 

69.37, 

69.27, 

<9.60, 

69.>!>l/, 

69, 57 . 

69.63, 


1 C .* r 

6 i» • A; 7 • 

69.57, 

7C.0 5. 

<9*61 , 

7^,05, 

7C.20. 

7 • 6 , 


: 9 

70 • • 

7 1. 1 n. 

7 1,5 2, 

72. 2 ^ , 

72.^5, 

72. 59 . 

73, 1 


v.r i. «i 1 •: 

73 • 6u t 

7 3.61, 

7 3 • t 1 » 

74. 1 3, 

73.01 , 

72.79. 

71 .81, 


‘.’.1L41 ' 1 1 

71 .42* 

7 1, 22, 

70.74, 

71.11, 

71 .',2, 

71.71, 

72. *9, 


V;PL':i ! 2 

73*32* 

73.10, 

72,04, 

7 2 . C 3 . 

72,20. 

72. ^ 4 » 

72 .40. 


F ’ L 1 i •• 1 3 

72. G3* 

7 . C 0 , 

7 3.47, 

73.4 2, 

73.02. 

73. CO, 

73. < ■!, 


Afil.Uf 14 

72.74, 

72. 25, 

7 U9 1, 

72.C0, 

71.71, 

71*61, 

71.13, 


V. Fi L M , 0 I 5 

7 1 * 0 d t 

71.61, 

70.93, 

7C . 6 i , 

7C,S9, 

7C*:i9, 

69,96, 


v.f^L M C 1 (. 

70*03. 

69.32, 

68«9ei 

67.63, 

67.23. 

67.32* 

67 .13, 


WPLr-n ' 17 

66* 69 « 

66. V9. 

6 7 * y 3 . 

67. 13, 

66.45, 

66. 59, 

6b,C6, 


W L -1 1 C 1 8 

65 • do « 

65.52, 

64.90, 

65.71 , 

66.20, 

65* 91 . 

65 .10, 


af;lmi r 1 9 

64. 30 . 

63.67. 

63.57, 

63.08. 

62.20. 

62.35, 

62.59, 


ftPLM 1 f 2C 

63. 47, 

6 3 . 7 n , 

62.74, 

62,59. 

62.1 1 , 

61 » 96 , 

61.61, 


S»«LMir2l 

76*20 * 

76. 10, 

76.39. 

76.33, 

75.91 , 

75. 56 • 

76*29. 


AftLMJ '22 

75. 9 1 . 

75, 56, 

76. 1 5, 

76.69, 

76.93, 

77. 1 7 • 

76.03, 


V,uLMK 23 

76.53* 

76. 69, 

77.17, 

7 7.86. 

78.06, 

77.91 , 

78.25/ 


ViRL UC24 

DATA ^25/ 

277. 1 5, 

27 5, 7 5. 

2 75. C8 , 

274,56, 

273, 75. 

2 74. 1 9 * 


f 25 

273.97. 

274, 19, 

275,97, 

277.15, 

2 78,71 , 

279, 97, 

281 .97, 


V»RLM 1 C: 26 

261*23. 

200.63, 

279,52. 

2 79. CO. 

277. 6C , 

276.55, 

275.60, 


AnL’Ur27 

275*0 J . 

27,3. 60, 

272.49. 

2 7 1 . 60 , 

•269.90 , 

260. 75. 

270.94, 


V.fiL»nC28 

272. 49 * 

273.23, 

274,27, 

275.60, 

276.56, 

27C. 49, 

279,57, 


V.PLM1 C 29 

260*71 * 

20 1.97, 

283.52. 

2 £ 5 . C 7 , 

286.16, 

207,44 , 

289,59, 


WRL ^1C30 

291.29. 

292,03, 

29C « 55, 

291.37, 

293.22, 

291,59, 

289.88, 


wr<LM 1 C 3 1 

266. 77 1 

2CB. 40, 

226,41, 

2 £5.22 , 

2 05. 15 , 

203.45, 

28?. 85, 


WQLM1032 

233* 22 1 

264,41, 

2£3. S9, 

2€2.93, 

282,41 , 

201, 15, 

200,4 1 , 


V*RL41033 

279*82, 

278.93, 

278. ! 2. 

276. 76, 

2/6,19, 

274, 64 • 

273,45, 


V.F?LM1 034 

27 2 . 20 « 

270,64, 

2o9«7 5, 

269, 38, 

269,90 , 

27C, 1 2 • 

270 .12, 


Wf?LMlC 35 

270 .49. 

27 1,0 9, 

271,68, 

272,34, 

272*20, 

272,49, 

271 . 75, 


W9LM1 C 36 

271.36. 

270.49. 

269.46, 

268* 27 , 

267.31 , 

266.87, 

266. 35, 


WWLMIC'37 

266*27 t 

265, 39, 

265.16* 

265.93, 

266.35, 

267.83, 

269. C 1 , 


feRL'-U 038 

269*6 1 . 

269.6 I . 

269,46, 

2 <6. 35, 

267.09, 

267* 63 , 

266.42, 


ibRLMI 039 

26b« 60 . 

269. 30, 

270.57. 

271 .31 , 

273,01 . 

274, 1 9* 

275,97, 


WRLMIC40 

277.23 . 

27£,26, 

278.7 6, 

2 79.40. 

276,75 . 

279,97, 

257, 10, 


WRLM1C41 

255. 04 « 

254.43, 

25 £.73* 

251.47, 

251.62, 

250, 53, 

249.6?, 


WRL 11C42 

24C* 59. 

247.92, 

24 £. £-6. 

245.63, 

244.66, 

242, 89 • 

242*74, 


’ftRLMlC43 

244. 29, 

246.44, 

247.55, 

248, 22 , 

247.35, 

246. 37. 

244,59/ 


V.RL'‘I1044 

CAT A 025/ 

76, 25, 

76*39, 

76.25, 

70.73, 

78.78, 

70,98, 


R L M 1 D 4 5 

79*32, 

79.42, 

79.66, 

76.95 , 

79.6 1 , 

79,91 , 

60.20* 


WRLM 1 C 46 

BO. 60 , 

01.47. 

0 C . 9 f ; , 

fO.44 , 

80*39, 

80.39, 

80.98, 


WRLM 1047 

6C« 73, 

30.44. 

ac. 54 , 

£0.69, 

00.93, 

01*27, 

61,61, 


hRLM 1040 

61.51, 

0 1 .47, 

82.29, 

£2.13, 

32.64 . 

. 02.39, 

82,73, 


WRLMl 049 

62 • 64 , 

82. 70, 

82.64, 

£2. 29, 

02.90. 

82,44 , 

62.59, 


WRL ■ . '50 

82. 73 , 

82.15. 

81.22, 

£ 1 • 32 , 

' 01.22, 

80.54 • 

00. 30, 


fcFiLM 1 '5 1 

79*61, 

76.93. 

79,27, 

76. 75, 

78.39, 

78, 03 . 

78.69, 


WRLM 1C52 

70* 10. 

77.91. 

77.56, 

77.66, 

77.13. 

77. 00, 

76,59, 


fcRUS'.l C 53 

75*96. 

75,91, 

76.20, 

76. 00. . 

76i05, 

75.76, 

75.52, 


WRLMl 054 

75*61 . 

75.47, 

7 5.52, 

1C* 10, 

76.69, 

77. 17, 

77,56, 


V.RL 'U 055 

73.00 . 

77. 06, 

77.9 I , 

73. 4 9. 

79. 17 , 

79,32, 

79.71 . 


vnu--*! 056 

79.61. 

80,25. 

•3 C , 3 4 , 

£0.49.' 

00.03, 

01.03, 

60.96, 


•mPLM 10 57 

60.76. 

79,95, 

79,52, 

' 7Q.C5, 

78.05, 

77. 91 , 

77.76, 


V.'RL'1 10 5 0 

77.37, 

7 6,70, 

7f .20, 

76. 20 . 

76. 3C, 

75.71 , 

7 4 . 9 3 . 


URL 10 57 

73.61 • 

73*96, 

7 4 , 1 C , 

74. 83, 

74.74 , 

74, no. 

7 5 . C £ , 


ViRL fU 0 60 

74.69. 

7 4 . 9 .1 ♦ 

7 4.74 , 

74. Ci* 

74.59, 

7 '3 . 6 1 , 

6 0 . » 


URLMICCI 

6 w< • 9 ri « 

6 9. 10, 

6 a . fl » , 

60.95, 

60 .15, 

6(‘, 59, 

66.79, 


V.RL'* 1 C 62 

L> 6 . 7, 9 , 

6ii« 3*} , 

66.79. 

69.47, 

69.37, 

69. 52 • 

70. 10. 


teRL»:i663 
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70»i‘0 * 

70. 1 5. 

data A2o/ 

2 4 3 . 4 0 • 

ii'4 3* 1 1- « 

244. 22. 

a i> i • 0 3 « . 

2 5 1-53. 

2 P • 1 / ♦ 

2 j 6 • ^ 6 • 

» 2a<r» 2^ » 

24 3 • 3 3. 

1 23b* t-io 1 

234. 75i 

230 * 09 • 

? 4 C . lb. 

252 t * 

231.47. 

245* 22 t 

247. 70. 

24 4*01 « 

245.63. 

254# 1 4 • 

254. 50. 

259.32 . 

259.02. 

^6b. 21 • 

259.69, 

263.39. 

263. 17. 

264. 05 ♦ 

264 . 57 » 

269. 69 » 

255.62. 

26 1.54* 

26C. 2 1 . 

235. 93. 

235. 06, 

241 .73. 

242. 52, 

230.00 . 

237. C4. 

ATA 026/ 

7C.93, 

72. 15. 

71.96. 

72. b9» 

72*05. 

71* 13. 

70.93, 

72« 59 » 

72.25. 

7 U 22. 

71.91. 

73. 27. 

73.57. 

74*44 t 

74. 25, 

74* 1C . 

74. 44, 

75.71 * 

76. 05, 

75*66 • 

75. 32. 

71*32« 

71.96, 

73.47. 

73. 7i, 

72.40 . 

71.52. 

73.08 . 

73.47. 

72.93. 

75.61. 

74.49. 

74. 54. 

75. 56 ♦ 

75. 86. 

77*13. 

76*49, 

75.27 . 

75.47, 

data A27/ 

258,65. 

25B* 21 * 

25S. 95. 

250.61 • 

249. 25. 

249. 10 . 

250.44. 

260.07 . 

26 . 32. 

263.03* 

263. 90. 

266* 64 i 

265.61. 

265. 61. 

266. 72. 

.266* 42 • 

264. 1 3. 

261 .39. 

262. 13. 

14 9. 93 1 

149.26. 

146* 15 

14 5, 26. 

141.64 

14 1.41, 

133*45 

1 38.02. 

137.64 

t 1 3 V . 27 . 


7r . 1 0, 

70.49. 

244. 37. 

244,65. 

24^,40. 

244.44, 

2 1 ,62. 

2 r 2 . 0 6 , 

2 5 i , 3 (> » 

2 S 7 * C 2 . 

24 1,65, 

240 * ?2 , 

23 5,63, 

235. 53. 

24 C , 5 9 , 

24 1.33, 

25C.5C. 

2 4 9 . 8 V . 

246.44. 

2 44 • 7** . 

24 7. 0 3. 

247. 65 . 

254,06* 

263. 31 . 

257, 32, 

257. 17, 

259.84. 

26C. 13, 

269. 0 1 . 

2 6B. 20 . 

266. 1 3, 

260.79, 

257.02. 

257.99. 

238.50. 

2 5 7 * 84 * 

236.45. 

237.41, 

242*37. 

24 1 , 26 , 

236.45. 

2:-5. 73, 

71.32, 

7 1 . 52 . 

72.59, 

72.15. 

71.76. 

71.76, 

70.64, 

70.59, 

72.30, 

71 .42, 

72.50, 

73.13. 

73.13. 

73.52 1 

74.39. 

73.66. 

74.69. 

74.73. 

75.42. 

73. 47 » 

74.74. 

71 .03, 

72. 1 0, 

72*03. 

74.15. 

73.37 , 

72.44. 

72.35 , 

73.18, 

73.57, 

75.47. 

75. 86 . 

74.69, 

74.39. 

76.25, 

76.30 . 

76.05. 

76. C5 • 

75.42. 

75.71 , 

257.39. 

2£6. 23. 

259.54. 

2C0. 13. 

249. 84, 

2 <9. 92 . 

251.25, 

251.03, 

2 61*76, 

262.65, 

263.09, 

26 3. 90 » 

264.57, 

263. 45. 

265,39, 

2 63. C3 . 

263 . 3 1 . 

262. 72 , 

263.24, 

2 6 3,’ 76 , 

146.30. 

147.71. 

144.60. 

1 43, 93, 

140,67, 

139.79, 

138,07. 

13d. 82. 

136, 9C. 

, 125,4';-, 


7<;.p. 

7 C . 3 3 , 

243. 7C . 

242.96, 

247, 35 . 

240.59. 

252.36. 

2 5 3 * ‘V 7 . 

2 06 • 

266*95, 

239.33, 

2 30.67 , 

235.93, 

236. 63 . 

242 . 59 , 

2 4 4 • C 0 , 

249.33, 

247.92, 

242 .31. 

243.16, 

249*03. 

251 * 1C, 

261 .90, 

261.02, 

250.21. 

259* 2 1 , 

261,51 » 

262.57 , 

26o . 37 . 

265.24, 

267.46, 

268. 57, 

259 . 24 . 

259.39 . 

257, 10 . 

255.99 . 

230.08. 

239. 73. 

24C ,15, 

239.93. 

200,50. 

239.76. 

71.66, 

71.47, 

72.49, 

72.98. 

72.74, 

72i 64, 

69.31 , 

69.42 • 

70.93. 

70.93, 

73.76, 

73.91. 

72.90, 

72.88, 

74.10, 

73.66* 

75,03 , 

75, 17 , 

75,1 3, 

75,91 » 

71.18, 

70.63, 

72. S9. 

72*64, 

73*32, 

73.03, 

72.30. 

72. 10, 

73.37. 

73.47 . 

75.56 , 

76. CO , 

74.74. 

74.93. 

76.54 . 

77.03. 

75.91. 

75. 47, 

76.08, 

76. 69 . 

256.50. 

256.88. 

260.37. 

26C.43, 

248,59, 

247.4 3 * 

262 • 00 . 

2 61.83. 

266 . 57 , 

265,90 . 

264,79, 

265. 39, 

263.31, 

263.93. 

264 , 72 , 

265.31 • 

262 * 1 3 , 

261.46. 

263, 90. 

264.26. 

147.19, 

146.97. 

1 44.00 . 

143. 19. 

, 1 39.42 1 

, 139.42, 

, 130.30. 

, 1 30.31 • 

, 135.72, 

, I3f.46, 


70.83/ 

v\ L M 1 c * 

242.44, 

•aHL 1! Cv J 

249. 25, 


25A.9'3. 

C67 

257.10. 

V.-'^L 11 

237.04. 

*RL 11 C' 9 

237. c=. 

V^7LMl r70 

253.90. 

ViRL'l 107 1 

245.77, 

V.PLM1072 

244 .29, 

V.;^LMlfT3 

252. 14. 

WRL‘-nC7 4 

260. 5S. 

C75 

250.87. 

V.nL‘nC76 

262. 1 3. 

V.RLMI C77 

263.90, 

WiRL 11C78 

269.09. 

„RL 11 079 

261 . 24, 

ViRLrll c DC 

255.69, 

tiRLM 1 00 1 

240.59, 

teRL U C 02 

23B.82. 

>ni_MlC33 

259.76/ 

teRLMl C84 

71. £2, 

ViRL U COS 

72. 3S. 

fcRLM1086 

71.57, 

1»RL^IC87 

60,64, 

»iRLM 1 f oa 

7 0 B 3 , 

^RL'll039 

73,81 , 

URtMlf 9C 

74.59, 

WRLMl 091 

73.71 , 

URL 11 092 

75.01 . 

WRL'11C93 

75.52, 

WRL*ll C94 

71 .52, 

WRLMl 095 

72.79, 

WRLMl C96 

72. 59, 

WRL 11C97 

72.35, 

WRLMl C90 

73.32. 

WRLMl 059 

76,00. 

WRLMl 100 

75. 66. 

WRLMl 10 1 

76.93, 

WRL 1110 2 

75.42. 

WRLMl 103 

77.47/ 

WRL 11 104 

257.17, 

WRLMl 105 

260. 58. 

WRLMl 106 

247.70. 

WRL 11 10 7 

260.73, 

W R L 1 1 10 8 

265.24. 

WRLMl 109 

206. 50. 

WRLMl 1 10 

264.79, 

WRLMl 1 1 1 

265.83, 

WRL'l 11 1 2 

, 261 .02, 

WRLM 1113 

, 15C.09. 

WRLMl 1 1 4 

, 146.45. 

WRLMl 1 1 5 

, 142.23. 

WRLMl 1 1 6 

, 1 38. 38, 

WRL‘1 1117 

, 1 30.31 , 

WRLMl 1 1 fl 

, 135.42, 

WRLMl 119 
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135# Id * 

1 3 4.61# 

1 33. ?4, 

1 32. 9: # 

13 3.20# 

1 32. 60. 

132.01 • 

v.rL l?c 

13 1 » 7^ « 

121.32# 

1 3 C , 0 0 . 

1 31 . 27 # 

1 : ; 1 ; i . 

131.72, 

1 32.4 b. 

y/r.*L *.1 1 :: l 

U 3 * i* 7 « 

132.10# 

13 3.13, 

1 3-. 16# 

1 . 3 4 ♦ 

134.90, 

1 35. :;6, 

n 12? 

1 3 o . > 3 , 

1 3H. C 1 # 

139.56. 

1 . 33 # 

1 4 1 . 1 f- » 

I 42# Vb, 

1 4 3 , f i . 

v.'M. ni.;3 

!*»<.# 5^ . 

140,49. 

146,23. 

1 4 *j . 4 5 # 

146,3^# 

14 7.63. 

1 4 8.4'./ 


DATA UZr/ 

77.42. 

7 7,47# 

7 7.61# 

7f. .15# 

7c. 1 0 . 


v.r-iL'ii 

7b. .»5# 

76. (.4# 

75. 3f-, 

70. 3 j . 

77.91# 

77.66# 

7 'j . 8 3 # 

vfU. M 1 1 i’< 

7 7 . C 3 , 

7 6.93. 

77.52. 

77.91 . 

77,95# 

78. 1 0 . 

7 0 . 3 4- #• 

1 27 

7b. 34 . 

76.54, 

77.06, 

77. 17 . 

73. 33# 

7C.73# 

79.03. 

i 1 28 

79*71 . 

79.52# 

79.37. 

73.93. 

7 3.81# 

73. 96, 

73. 76. 

\.r-L1 1 1 29 

7 3. Co 1 

74. lb# 

74.69. 

74.74. 

74.93# 

74, 59 . 

74.50, 

V.F^LMJ 1 30 

73.96# 

7 ■? * 1 7 , 

7 6.7 6. 

76.03. 

77*27 , 

77.47, 

77.61 . 

1 3 1 

77.^7. 

76.20, 

75.81. 

7b. 91 , 

76.35. 

76. 20, 

76. 54 # 

V.r-L U 132 

76.30# 

66. 43, 

60. 4C. 

63. 40 * 

60.74# 

68. 69 ♦ 

68.98, 

W R L 4 i 1 3 3 

69# 37# 

69. 66, 

69,47, 

69. 18, 

68.83, 

66. 40 , 

-10.27# 

V.nLfVi 1 34 

-ID. 12# 

-9.92# 

-9.92, 

-9. 34# 

-9. 14, 

-8.66 . 

-8.27# 

VkRL.Ml 135 

- 6 # 0 . 

-7.56# 

-c.02. 

-n.02 , 

-3,85# 

-9.29, 

-9.24. 

t/PUMl 1 .16 

“ 0 • Vo » 

-e. 1 7* 

-0.07, 

-6.12# 

-7.97# 

-7. 39 . 

-7,49# 

1 .37 

-7* 1 ;» * 

-7.10, 

-6.7 1, 

-6. 27 # 

-5.97 . 

-5, 39, 

-4.95, 

V.RL‘1 1 1 30 

-4.56# 

-4. 27# 

-4,22, 

-3.63. 

-4,12# 

-4.45, 

-4.02#' 

hRLM 1 1 39 

-3. 49 # 

-3. 78# 

-3.63, 

-3. 29# 

-3.19# 

-2.41 , 

-2#37# 

ViPLMi 1 or 

-2.12# 

-2.32# 

-2.02# 

- 1 # 54 # 

-1.64, 

-2.C2, 

-2. 12. 

V;RLH 141 

-2.02. 

-1.24, 

-C.27. 

-0*71 # 

-V.54, 

-2. A 1 • 

-3.05# 

ViOLMI J42 

-3 • 1 5 t 

- 1,73. 

-2.07, 

-2. 56 • 

-3.00 , 

-3.05, 

-3.50# 

V»r?LMl 143 

-3.7di 

-4. 17, 

-4.7 1 , 

-5. 19# 

-5.58, 

-5.63, 

-6,32/ 

VHL'll 14A 

DATA A26/ 

14Q.OO# 

146. 3C, 

1 40.67, 

149.04# 

149.63, 

150.67# 

V.nL‘1! 14£ 

151*26. 

tSU76# 

151.04* 

120,47, 

1 19*43# 

119.43, 

1 1 9. 2u# 

V.nL'1 1 146 

M 6. A» # 

119.21. 

1 1 6. 9 1. 

1 19.51 • 

1 19.51 • 

119.65, 

1 19,00# 

HRLMl 147 

119.43# 

1 1 9.95. 

1 2C.9 1, 

121.65, 

122,47. 

123. 28, 

1 23* GQ # 

t.nUMl 148 

224*47# 

1 24.69. 

124.69. 

I 25. 43, 

1 25.63# 

125*56, 

124,«04. 

ViRLMl 149 

124*24. 

122.04. 

122*0 2# 

1 21,23. 

122, IC# 

122.09, 

123*50. 

WMLMl 150 

123. DO « 

1 24.76* 

124*69. 

1 23, 07, 

123.58# 

123.20, 

122.39# 

Wf<L‘U 151 

122. c9 » 

122.62, 

122.9 1 # 

1 23,57, 

123. C6# 

1 23. 73 , 

123*43# 

WKL'iH 152 

122*’69t 

122.47# 

121.95# 

121.63, 

1 21 .66, 

1 2 1 • 8 , 

121 *20# 

V.RLMI 153 

120.64, 

12 1.20 • 

1 20.99, 

T20.99, 

120,99. 

121.C6# 

120.04# 

»aLMI 154 

120.91 . 

1 20.62# 

114.92# 

1 13,03, 

112.99# 

1 1 2. 70 . 

1 I 1.00# 

^RLMl 155 

111.37* 

I 10.55# 

iic.4e. 

1 10.55. 

1 10.40 . 

109. 14* 

109*22, 

KRlM 1 1 56 

109.37# 

109.07. 

1 10.33# 

1 10,70, 

1 11 .22. 

1 12.48. 

1 12.46, 

V/RLMl 157 

113.3d, 

1 13.51, 

113.59# 

1 14 . 92 # 

1 15.36, 

115.51, 

115.36# 

V.'RLM 1 1S8 

116.16# 

1 1 6#77# 

U V . 4 3 # 

1 18 . 40 , 

110.32, 

1 10.77. 

1 18.25, 

VtPLMl 159 

116.32. 

1 10. 17, 

117.73. 

1 ID. 17. 

118.17, 

1 1 e. 69, 

1 10.06# 

Va R L 11 1 6 C, 

116.69, 

116.17, 

1 1 0.0 3. 

1 10.03, 

1 16.99, 

1 17. 14, 

116-47# 

V.MLMl 161 

116.25, 

116.25. 

1 1 5.95. 

1 14. 92 . 

95.60 # 

9 B • 6 C , 

95.36, 

tent. Ml 162 

95.90 . 

97. 30. 

97.45, 

97, 67 , 

90.26, 

9*J. 63. 

98.56# 

V.RL'1 1 16 3 

96.56. 

96. B6. 

IOC, 34, 

1 CO . 1 9, 

1 CO . 34 , 

100. 34 ... 

101 .02/ 

V.RLMl 164 

DATA 

-6.90, 

-7.44, 

-7.97, 

-8.61 , 

-9.24, 

-9. 14, 

VrRLMl 165 

-9* 10# 

-1 C.02. 

-1 0.22. 

-b. 49, 

-5, 1 4 , 

-4.51 , 

-4.12, 

teRL 1 1 1 66 

-3. 39, 

-2.76# 

-2.22, 

- 1. 50 # 

-1.19, 

-0,37 • 

0.22, 

VRLMl 167 

0* 51 f 

C.90. 

1. 10. 

1 .34, 

1*10* 

C . 85 * 

0.76# 

V.RLM 1 160 

0*71* 

1.50* 

1.73, 

1.73# 

1.15. 

0.76. 

0,32. 

V RLMl 1 69 

0 , 32 ♦ 

C.32. 

f . 3 7 , 

-0 » 22 • 

-0^ 32 , 

-0.17, 

— 0 . 56 » 

WRLMl 1 70 

— 0.41 * 

- 1 • 24 , 

-1.19. 

• — 1 . 1 0 » 

-1 . 1 C . 

— J • 2 4 # 

-1.34# 

WRL n 171 

- 1 « r.ti . 

-2.32# 

-3. 19# 

-3.44 , 

-4.12, 

-4.51 , 

-5. 10# 

l-RLMl 172 

-5*00, 

-4. 36# 

-4.12. 

-3.63# 

-3.34# 

-3. 10 , 

-2,32# 

V.RLMl 173 

- 2 . <p 1 , 

-3. 10# 

-3.05# 

-3.49 , 

- 4 . 17# 

-4.22. 

-4.56, 

teRLMl 174 

-5.00 • 

-0.03, 

-3.97# 

-3,49# 

-3#bD# 

-3. 10 . 

-3.19# 

VRC Ml 175 
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-2*76, 

-2. Cl , 

- 1 . f- 0 . 

- 1 . 7v. , 

-1.15, 

-C.66. 

-C. 12, 

M 175 

0 • • 

1.39, 

1 . 8 3 # 

1 . r. i , 

2 ,'7.7/, 

2. 37 , 

3.0 5 , 

;.K'L .111/' 

3, a * » 

3.6 3. 

4. 36, 

4 .46, 

^-4 6, 

5. l'.J, 

5.63, 

v.r;L*'.: i 75 

&,93, 

C. 41 , 

5*63, 

5.44 , 

5,14, 

4,£ 1 , 

4,27, 

v: 1 Vv 

3*73, 

3.39, 

2*76, 

2.46, 

2,07, 

1.^1. 

1 • 3 9 , 

V. 1 1 » 0 

1 • 2 >' » 

C . V 1 , 

C*6 1 * 

0 • 32. 

-0.41 , 

-1.15. 

-1.73, 

V.’ 'L *. I 1 •- 1 

-2.27, 

— 2 . 6 D , 

. -3. 19, 

-3.83, 

5.24, 

5 . C 0 , 

4.61, 

Vx rj L '-M 13? 

4.41 , 

3.49, . 

3. 1 C, 

2.22, 

1.78, 

1.54. 

1.24, 

Vil'-Lr.'.l I5‘3 

0.66. 

0.27, 

- : . 2 2 , 

” 0 * 66 1 

-1 ,63. 

-2.-12, 

-3, 10/ 

V, n L '-M 1 a 

CAT A A29/ 

10 2.66, 

143,55, 

rc 5 . c V , ■ 

1 05. ^-4 , 

1 0 fc . 3 3 , 

106.15, 

V.9L‘U 1 cl 5 

106. 04 , 

J. 0 6 . C 1 , 

1 c e . c 4 , 

1 C6. 04 , 

105.37, 

104.11, 

104,11, 

V.OLM1 180 

1C4.0-V, 

1 0 3 4 4 S , 

1 C 3 * 3 C , 

1 C2. 26, 

1 Cl ,60. 

100.63, 

99.39, 

V.flLMl 1 37 

9 9 * C 7 * 

90. 86, 

98. C A, 

97.97, 

97.0 1, 

95. 90, 

1 2 3. 60. 

V.f^LSl 108 

123.65, 

1 2 3 . £ 5 . 

123.2 li 

1 22 . 67, 

122.76, 

12 1.93. 

121.20, 

180 

121.36, 

122, 47. 

123.13, 

1 23. 36, 

123.58, 

123,73, 

123,65, 

1 190 

12J./3 , 

123.87, 

124,54, 

1 24 • 10, 

123.21 , 

123. C6, 

1 22 .99 , 

V RLMl 1 9 1 

124. 3v , 

124.54, 

125* 35, 

V 24, 91 , 

124.70, 

125.20. 

125.43, 

V,T<L'U W2 

123. 13, 

12 4.91, 

124.84, 

125,13, 

I 25.95, 

125.06, 

124.54, 

V.RLil 193 

124,47, 

123.73. 

123. 65, 

1 23,2U, 

122.91, 

123.2 1. 

122.76, 

Wf’LMl 1 94 

122. 1 7, 

13C.98, 

131.79* 

132.31* 

1 33.20 . 

13 4.75, 

1 35.64 , 

VsRLM 1 195 

13&. 64 , 

1 33.72. 

136*90, 

1 36. 1 6. 

1 3U. 1 6. 

1 38. L 6, 

139.56, 

hOLMJ 196 

139. 79* 

139.03, 

139*56i 

1 39. 64 , 

,140.30. 

14C.82. 

141 • 12, 

197 

141.66, 

14 i.A9, 

141, 34, 

1 48 . 6C , 

140.75* 

140.53, 

140.02, 

WA'L-U 1 9£> 

140.60* 

135,49, 

1 3 c t 9 7 , 

1 37.57. 

1 37,1 2 , 

136.97 , 

13 6*46, 

V/F<LM 1 199 

135. 27 1 

1 34. 16, 

13 3.20. 

132.61, 

131.13, 

146.23, 

146. 1 5, 

‘■'.•flL 'll 23 0 

1 4 3 * 4 9 * 

145.41* 

144.38, 

1 <4.00. 

143*1 9, 

14 1,93, 

140*30, 

v.nL 11 ?e 1 

139.66, 

140,08, 

14C, 38, ' 

141.41, 

141 .78, 

141.71 , 

142*30, 

y.i-?L’U 202 

142.7b • 

14 3* 26, 

14 3*70, 

144.60, 

145.49, 

146.45, 

143.36, 

W9LMI 293 

142.97. 

142,23, 

141.71. 

i42,:o, 

142,98, 

141,86, 

142.08/ 

te9LMJ 294 

OATA U?.9/ 

-3,83, 

-4. BC. 

-5,63, 

-5.24 , 

-5. 1 4 , 

-5.C5, 

yr<LMl20 5 

-4. 12. 

-2,34, 

-3.34, 

- 2 . 66 * 

-2*12. 

-1.58, 

-0.05, 

WftLMl 206 

-0.4C. 

-C. 12, 

0.37, 

0.88, 

1.24. 

i*eo. 

2.17, 

WMLMl 207 

2.'7 1 • 

3.39, 

3*68, 

4.56, 

4 • 66 • 

5* 34 * 

9*50, 

WJILMI 20 3 

10. 12, 

10.51 • 

1C.56, 

11 • 19. 

1 1 .44. 

12.12, 

12*56, 

VsRL ‘M 209 

12.90 . 

12.51, 

12,22, 

11 « 56, 

1 1 .05* 

1 1 . 34 . 

11 *87, 

WPLM121C 

12.36. 

12.61, 

12.41, 

12, 80* 

12.95, 

13.24, 

13.78, 

wriLMl 21 1 

13.24, 

13.39, 

1 2,95* 

12., 56. 

12,02, 

12.46, 

1 1 .44, 

yRLMl 212 

1 1 . 68 , 

1 1.44, 

10*51, 

10.46. 

10.36, 

10*46. 

10.12, 

V»RLM 1 ?l 3 

9.83, 

5,68, 

9.15, 

9.05 , 

9,63, 

1C.41 , 

10.51 . 

HRLM1214 

11,44. 

34. 20, 

34.65, 

24. 69 , 

35,53 , 

35.43, 

35.23, 

fcRL-ll 21 5 

36.21 , 

37. 33, 

36.50, 

36. 99 , 

37,4 e. 

37.02 • 

38.31 , 

y-nLMl 2 1 6 

38.84 , 

35. 3d, 

4 C . 2 6 , 

40 ■ 65 * 

40.70, 

41.04. 

40.45, 

V..9LM 1217 

39.62 • 

38. 65, 

37.87, 

37.62, 

36,94, 

36. 36, 

35. 2B, 

yPL U 213 

34,60. 

34, 09, 

34.70, 

34 .89, 

34.55, 

34,06,' 

33.43, 

yP.LMl 2 1 0 

34.36, 

34.06, 

34*2 1 . 

33.97, 

33.97. 

44, CO. 

43,38, 

V.RLM. 1 220 

42,89, 

42.21, 

42.55, 

42. C6 , 

42.01 • 

42.26, 

41.38, 

V.RLM1 22 1 

41.72, 

42.26, 

4 3.2 3, 

43.57, 

44.06. 

44,79, 

44.65, 

ynUMl 222 

44, 1 0 , 

4 4*16, 

4 3.62. 

43.67, 

4 3 . 6 7 . 

44.0 1 . 

45.72, 

yPLM 1 223 

46. 16, 

4E.67, 

46*45, 

47. 1 3, 

47.62, 

48.69, 

AQ ,99/ 

VPLMI 224 

DATA A3C/ 

1 4 2 . C 8 , 

142.23, 

141.93, 

1 42. 1 5, 

1 4 1 . 5 , 

1 4 1 . 7 e , 

V.PLM12:*3 



14 2.52, 
1 4^ 3.9 3, 

1 ^2. 45, 
144.80, 

142.69, 

144,30, 

14 3,04, 
144.78, 

1 C3.3‘- , 
143,49, 

».RL U 226 
v..'vM. 1 1 

143. 3s . 

143, 26. 

1 43. 34 , 

143,04, 

143.49, 

1 44 .CO , 

144.00, 

125. 72 , 

1 25.06, 

y?0|. -1 I 223 

124.3 ; . 

12-3* 50, 

12 3.6 5 , 

1 23 • 80 , 

1 24.32, 

J 24. 32, 

I2a.36, 

hnLMl?29 

122.69, 

12 3. 28, 

1 2 3 . 2 1 . 

1 22. 9! , 

122.76, 

1 2 3. 38 . 

123.58, 

WRLMI 230 

1 23.63 . 

12 4, 1C, 

124.47, 

124.61, 

125,13, 

1 2 5. 1 3 . 

125.50, 

V: L 11 2 31 
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IZb* CO • 

12C. 17, 

12C,9 1 . 

1 27, 20 , 

I 26^ - j 9 , 

126.76, 

126,32, 

V.‘ 1. -113 ’. 2 


1 2 C , o , 

1 i ,95, 

1 ; f . . 7 ? , 

1 V? , 25 ♦ 

12 1.21, 

1 2 ) . 4 i , 

ur»L:: 1 ■» J 

i 20 • « 

1 2 0 . ^ 2 , 

1 2 C , 0 2 , 

1 2C , 25, 

119.75, 

119. 0 5 , 

12 0,47, 

wr;L *. 12^4 

120«o-w 

120, CV, 

1 2 C , o A , 

1 20, 2 -j, 

126.47, 

1 2 6 » '■ 1 « 

121.21. 

\s n L M J '.-' 

1 2 2. -<2 • 

122, 1 7, 

1 2 2 , 7 f. , 

I 22.91 , 

122.25, 

122,25. 

1 22, 32, 

V. r’L’M .■'J';. 

12 1 • 66 t 

12). 73, 

122,47, 

1 22. 32, 

bC , 2 1 , 

7 1 , e 4 . 

79, 6 1 , 

V.'- LMl 2 37 

bC* IJ * 

eo. 3=>, 

79,47, 

79, 91 , 

BO . 4 3 , 

Rf , 87 , 

8 1,61. 

y.f ’LM J 2.3 3 

b 1 • V o i 

02,20, 

B 2 • 13. 

e 1 . 1 4 , 

BO ,95, 

00, >;') , 

00.50, 

k-.9L 1 1 3 3 9 

127, 2C ♦ 

125. 9f>, 

124,76, 

l 24. 1), 

124,10, 

124. 32, 

125.13, 

WPL.Ol 2' C 

126, 2u. 

123.72, 

126,39. 

1 27. 

1 ;!7.L'0 , 

1 2 C , 9 9 , 

121 t. 

y.kL" J 24 1 

120 . 10 t 

119,36, 

12C,32, 

121.es, 

1 2 ~ ,28, 

1 22. 32, 

1 21 . 1 J, 

VP:i. U 24 2 

12 1 »06 • 

1 2 1.50, 

122.4 7, 

1 23. 2 1 « 

n , 3 6 , 

118.77, 

113,03, 

\>9L7 1 24 3 

M&*92f 

1 1 G.‘C', 

117.66, 

1 16. 32 . 

119.21, 

1 19,36, 

105. 89/ 

W PL 7.1 2 A 4 

DATA BJO/ 

4 9 , 6.2 , 

50.0 1 , 

£0.55. 

51.13, 

51,52, 

52.11, 

V?RL7 1 2A 5 

52» CO f 

53. 1 0, 

53.47, 

£3, Bo, 

53,47, 

52,79, 

52.35, 

V^»L“l246 

b 1 •6b, 

5 1 » 2C, 

50,50, 

£C , 23, 

49.43, 

48.55. 

49,00, 

Vir>L n 2A7 

4C. 21 , 

47.62. 

4 7. 33, 

46. 63 , 

45,67, 

5.53* 

6,32. 

VsRLf-'. 1 2 OS 

•6.22, 

6,66. 

7,14, 

7. 24, 

7. S3, 

C. 02 « 

7.33, 

ttPLPl 249 

7.97, 

6. 61 * 

9.00. 

9. 34 , 

IC.07, 

1C. 56. 

10.97, 

y.PL M 2-30 

9,69, 

6,66, 

e.cs. 

e. 61 , 

8,61 * 

9,14. 

9.49, 

VvKL Al ?‘31 

9. 19 * 

a, 61 , 

8,61, 

7.63, 

7' . 7 3 , 

6,61 • 

7,14. 

yPLMl 2C2 

6.66, 

6* 36. 

6.02, 

5. 6J , 

13,48. 

13, 73. 

14,02, 

WRL n 2-3 3 

1 4 • 6 u 1 

1 C. 1 2, 

1 4« 36, 

14, 85, 

IS, 39, 

15*97, 

16.07, 

V.PL a 254 

16.26, 

1 6. 36, 

17*04, 

17,39, 

17. S2, 

18.41 , 

1 Q.95, 

V.'RLM 12-55 

la, 75 , 

1 e. 36, 

1 7.82, 

17.43, 

17.04, . 

16.46, 

16.02, 

lARLn 1 256 

IS, :s9 1 

IS, 14, 

14,46, 

13, 63, 

9*34 , 

0*95, 

8.36, 

hRLM.l I'f.y 

7. 97 , 

7. 60, 

7. S3. 

6. 93 • 

6, 95 * 

£', 27, 

6,17, 

WrU.MJ 2'iB 

A - 7 1 . 

A . o »■; , 

7. 3A. 

7.64 . 

B.A 1 . 

A* 90 . 

Q . 3 4 , 

v« p 1 \M p r. 

-0,27, 

-e.5i , 

— 6,56, 

-9.00 . 

-9,03 , 

-IC. 07, 

-10.41. 

l‘.r?L7 I 260 

-9,03, 

-9.39. 

-9. 19, 

-6 • 95 , 

-0*22, 

-10.31, 

-9. 92. 

ViRLMl 26 1 

-9,00 , 

-9,39, 

-9.03, 

- 10.31, 

-0.02, 

-7. 83 , 

-7,6H, 

WRLP1262 

-6. 12 • 

- e . S 6 , 

-8.46, 

-6. 02 » 

-7,73, 

-8. 17* 

-7,92. 

WRL'U263 

-7. 66, 

-a.4 i , 

-6. 3 1 , 

-0.06 , 

-8,51 , 

-7. 97 , 

-6.4 6/ 

V.RL7 1 264 

CAT 7. A31/ 

106, B5, 

10 6.55. 

1 C9. 03, 

1 10.77. 

1 11,51, 

112.99, 

WKL71 265 

114.33, 

113,59. 

114,70, 

1 15. 35, 

1 14.47, 

1 13.03, 

1 1 2. 85, 

WRL -'112 36 

111,37. 

1 1C, 25. 

109.59, 

1 CO. 92. 

1 07.66, 

107. 15, 

106.04, 

V.RLM1 267 

129, 13, 

129.79. 

130. 16. 

1 31 , 27 , 

131.42, 

! 3 1 . 35 , 

1 30.60, 

y-RL-^I 26 S 

129.57, 

129. C5, 

125.76. 

1 29.42, 

1 28.02. 

127.35, 

126.90. 

yPLM 1 269 

127.35, 

126.24, 

1 2 E . 2 A , 

1 26,02, 

1 28.46 , 

120.31, 

1 28 . 60 , 

WRL'1 1 27 0 

1-29.26 , 

129.23, 

129,79, 

1 29. 1 3, 

128,46, 

123. 17, 

127.50, 

WRL'Al 27 1 

127,26, 

127.43. 

127.4 3, 

1 27. SO, 

117,35, 

1 IK, 17, 

1 1 a . C 2 , 

V.RLM1 27 2 

1 19, 36, 

1 1 9, 43, 

1 1 9.5 1 * 

1 19.21 , 

118,77, 

1 10.40 , 

1 10,62, 

WRL-1 1 27 3 

115,32. 

117,95. 

1 1 7 . 5 e , 

1 17.43, 

1 30 .4 b * 

130.60. 

1 30.2A, 

yPL'll 274 

129. V9» 

129.05. 

129. 2£, 

1 30. 02,- 

131,72, 

131.42, 

131 ,70. 

275 

131,64* 

131.42; 

130,53. 

121,13, 

1 20.54 , 

1 J 9. SO , 

1 20 , 2 5 , 

V.'RLM1 27 6 

121.26, 

122.17. 

12 1.73, 

121.65, 

121.21. 

121.28, 

1 4 7 . C 4 , 

V.RL U 27 7 

146. 30 • 

I4C.5;', 

147.63. 

1 48. 37, 

IAB.67, 

1 4b. 67 , 

148,f C , 

WRL'll 27 B 

1 47, 34 , 

146.60, 

155.25, 

1 ',4 . 74 , 

1 54 ,0 7, 

154.81 , 

155.11, 

h R L ’-1 1 2 7 9 

156. 07 • 

1 5 5. 7 0, 

149,^ 1 , 

149.93. 

1 -36.74 , 

151.26, 

151 ,55, 

kKL'^ 1 2CO 

1 b 2 , 2:2 , 

152.10, 

1 5 2 . 2 9 . 

1 £0. . 

150.22, 

149.41, 

1 50 96 . 

yRLMl 23 1 

152. 29, 

15 3.^ 3 , 

ir-3,7C, 

1 5 3 . 26 , 

153,18, 

152,^6. 

1 52. 37, 

ypLM 1 2 32 

15;.‘, 52 , 

1 SC. 06. 

162, 1 4 . 

I t2 . t j , 

162,43, 

1 f. 1 . 7 / , 

161.!'.’, 

V.RL U 23 3 

1 6 1 i A 7 . 

161. 99, 

1 59. 99. 

1 60.95, 

161 ,40 , 

1 6C « f-’B , 

160,4*./ 

y|-’L 1 1 23A 

DATA 631/ 

-5.76. 

-5.07, 

-6. 46, 

-6,41 , 

-7, C5, 

-6.61 , 

VsBI.r*. J 2 b5 

r 7 , 0. 0 , 

-7. 20, 

-8.C7, 

-a. 67, 

-8.36, 

-6. 1 7 , 

— 8,07 * 

i;.'2 6 

-6. 07 , 

-7.86, 

-G.r 2. 

-7. 43. 

-7,37, 

-6. 7 1 , 

-C.46, 

\.RLf:i 287 
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SSI'SS'IC 


-3. . 

- 3. 3 ?» 

-".65. 

“3. 97 . 

-3.1 0 , 

-3.ro. 

-3. 15, 

v^•••‘L^^i ,'":o 

- 3 • 0 . 

- 3. 1 3, 

-3,34, 

-3. ’7, 

-3. IG . 

-3,39, 

V-t'LV, 1 l\-‘' 

-3* Li> . 

- 3. oO. 

-3.16, 

2,32* 


1.7d, 

1 *20, 

V.: L*-U 

1 • 3<r • 

C. 76, 

C , 2 7, 

c • 3 7 , 

C • o . 

C • 2 2 , 

0. 32 , 

•••.i;’. ■ 1 

1« 

1.19. 

1,78, 

2.27. 

8.31. 

6.56* 

8.70, 

v.»n, 11272 

9. 34 ♦ 

1 *> . 1 7 . 

1 C . 6 6 , 

1 1 , C ' . 

1 r . 61 . 

1 C . 2 7 , 

9.80, 

LMl 2'M 

9» I 

C « 9 5. 

£• . 9 0 . 

• 4 1 , 

31 . ■?4 , 

3 1 i 67 , 

32lcC, 

M'L 2'.'-- 

3 2 • 4 0 t 

3?. 34, 

33.4 6, 

33,63, 

32 . 9 > , 

32, 36. 

31 .72, 

WliU'll 205 

30, 99 1 

3C.04, 

3 C . 9 4 , 

2 2. 1 5 i 

22.9C , 

23.43. 

24*21, 

n f ■ L W 2 3 6 

2< • eo f 

2 4 . 7 j . 

24,07, 

23. 34 ♦ 

22.90 . 

22. 26 , 

44.11. 

WKL Ml 20? 

44*53 . 

45.57, 

45.67, 

45,07, 

45, » 

4 4 , - 4 (. 

4C.05, 

V,f.L ll 200 

44 • 20 t 

4 3.96, 

49-96, 

49 , 62 • 

5C .16. 

5C. 7 ?, 

5o*e-'.. 

V.ni.Ml 299 

50* C>4« 

50.11, 

— 5 * s r ♦ 

-5, 34, 

-5 , 1 V , 

-4. 32. 

-4,12, 

V.PL U 300 

• «3* 97 . 

-4. 75, 

-5.14, 

-5.73, 

-5. 93. 

-5.63, 

—2.56, 

V.rcLHl 32 1 

-2. 56, 

-3. 15. 

-3,29, 

-3. 53, 

-4.02, 

-3.63. 

-3. 19, 

V.^LMI 3? 2 

-'3. 10 » 

-2.66, 

-9. 49. 

-9. 13 , 

-9.05 » 

-G.C7. 

-8.35, 

V fiU'U 30 3 

-9* CO , 

-9. 39, 

-9.1 9, 

-9. 1 4 , 

-9.63. 

-9.92, 

-9.49/ 

taF-n. M 1 304 

DATA A 32/ 

166.44, 

1 5 . 0 7 , 

1 £U, {4 i. 

159.70, 

1 59, . 92 . 

139,40, 

V«rH.Ml 30 5 

159* 15* 

165.62, 

164.60. 

1 65. C2, 

1 65.76, 

1 65.76 . 

166.73. 

%r>L?1300 

167, 69 . 

167,47, 

1 66.73, 

171. 5 ', ♦ 

172.13, 

173. 17, 

172.00. 

h-RLMl 307 

171*69. 

176. 64, 

177.24, 

1 77, 60. 

177*16., 

177,46, 

177.98, 

^^riL -1 1 30R 

176.13, 

176.13, 

177.75. 

1 £3.97. 

13 3.32. 

1 84. 34, 

1 85*0 1 , 

V.F-JLM1309 

i63,75* 

1D6.64, 

106.02, 

1 C5* 60. 

184.93, 

1 84. 56 , 

180.79. 

V4LM1 310 

161 * 23 « 

182,05, 

15 2.34, 

1 £1 . 75 . 

1 3C.72, 

1 8: . 72, 

180.57, 

V»m. 'll 31 1 

165. 45 , 

1 85*75, 

1 C 6 . 4 9 , 

1 £6. 73. 

185.97, 

185. 30 1 

204*03. 

WHLMl 312 

20 4* 70 . 

204,77, 

20 5.2 9, 

2C4.A0. 

203.96, 

203. 73, 

47.94, 

V.riLMl 31 3 

47*34 , 

47,49, 

4 6-53, 

4 6.31 , 

45,64 * 

4 4.31, 

42.35, 

UKI.U314 

42* 31 « 

42.61 , 

4 2*6 1. 

42.46. 

42.61 , 

41.72, 

4 1.57. 

V.RLM1315 

41*67. 

4 1.79, 

4 2.3 1. 

42. 31 « 

43.1 3 , 

44, 24 , 

44.90, 

f,rn.-ll 316 

45*35* 

45. 35, 

4 6*23. 

46.09. 

46.68, 

47. 12, 

46. 83* 

V»RLM1 31 7 

47*49* 

47.49, 

48. 1 6. 

48.01 • 

48.0 1 , 

48. 90 , 

48.60 , 

4l?LMl3ia 

46*60. 

48.90, 

48*75. 

47.85. 

355.09 , 

354,42, 

355.90. 

V*r<LM1319 

354 . 57 . 

354. 35. 

355.68. 

3C6. 50 . 

356.64 , 

336. 05, 

355.01, 

VJPLMl 320 

354* 94 . 

354.42, 

353.54. 

3 £ 3 . 3 1 . 

3 53,54 , 

333,91 , 

353*61 . 

321 

35 3. 2.4 * 

3 5 3.83, 

354. 2C, 

3 54 79 , 

355.83, 

356. 94 , 

356.42, 

ViHl.Ml322 

357.46* 

357-98, 

357.46, 

3C0. 72. 

356.87 , 

358. 1 3, 

358.42, 

WRLMl 323 

358* 64 , 

359.09, 

359. C 9, 

0.27, 

C.05. 

1.09, 

0.35/ 

V.RLM 1 324 

DATA C32/ 

-9.53, 

-e.07, 

-6. 95, 

-7.10, 

-7.92, 

-0.07, 

WRLMl 325 

-7.C5* 

54.55. 

54,94, 

£5. 81 , 

55.03, 

54.40 . 

54.40, 

V;nU11326 

54*30* 

53.96. 

54.35, 

52. 79. 

53.57, 

5 3.08, 

52.84. 
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— 2C- • 8 ?> » 

-20.46. 

-19,32/ 


VRL'U 464 

CATA A3o/ 

10 5.69. 1 6 6 . 2 e . 

1 67.54 , 

1 66. fJb , 

167. 10 . 

1 66.95. 


v/RL-5 1 f' 65 

1 06 * 96 « 

1 6 6 * 6 G » 16 6.36. 

1 6 6 , 8 -3 , 

170./i0, 

17C.21 . 

170. C5, 


WRLM 1 /, 66 

16b • 9 6 t 

ie>C.CI, 17C.13. 

1 77.90, 

173.13, 

1 70. 72. 

178.3/, 


V.'RL/14 67 

176« 67 . 

1 77.9^. 1 7G. 1 3. 

179.93, 

160,20, 

173. 37 , 

179.53, 


WRLMl 460 

*lb4«42 . 

1 9 4 . 3 'I f 1 6 4 • €i 4 ♦ 

1 £3. 68, 

163.53, 

104,05. 

I04.3^r, 


V;-JL-'l 469 

1 &6* 09 1 
166* 9 3 ♦ 

166. 13. 16C.9C. 

166.13/ 

1 67.26 . 

1 6-6.36 * 

160.50, 

160.23* 


WRLM 1 470 
KRLM1471 

CATA b3o/ 

“2C.60, -2C.99. 

-21 . 4J, 

-50 . 94 , 

-5C.60. 

-50,21 , 


V-.HLf'1472 

-49.02 • 

-49. -32, -49,96. 

-50.69. 

-52.16. 

— 5 1 • 3 2 » 

-51 , 32. 


WRLM1473 

—61.66* 

-62.10. -££.01, 

-40,04. 

-40,69, 

“4 b. 55 , 

-48,25. 


WRLMl 474 

-47.91. 

-46.26. -46,50. 

-« 7. C3 1 

-46 .AO » 

-46, 16 » 

-46. 74, 


WRL'U4 75 

-44.0 1 t 

-43.36. “43,04, 

-4?. 60. 

-43. 3S. 

-43. 52 » 

-43.91 . 


Y..7LM1476 

-76*93» 

-76.69. 

-7C.3C, -76.25. 

-76.es/ 

-75.71 . 

-76.15. 

-76.49* 

-76,33, 


v;RLMi4?7 

KRLM1478 

CATA J.N ThF. ’‘C" AFiRAY ARf; THE NUYEJEM 
•INCT bCDY STOWED IN CRDEW IN THE '’A” 

OF VECTOR SEGMENTS 
AND "U»’ ARRAYS 

IN EACH 


WRLMl 4 79 
WRLMI4SG 

DATA C / 

637, 746. 576. 404. 130* 

279. 46. 

35. 122. 

83 . 55 . 

WRL>1 1 48 1 

49. 20 

, 25. 20. 13. 

13. 15. 

16, 11. 

7* 11. 

7, 

7, 

WRLM1432 

12. 60 

* 62. bit 43. 

44. 39. 

22. 33* 

34 • 26 . 

IV. 1 

2 , 

Wr<UM 1 48 3 

6 1 7 

, 9* 2 1 * M • 

6. IS. 

14 . 13. 

10* 10* 

7* 11, 

WRLM 1 434 

.10* 7 

. 6, 6* 5. 

4* 5. 

4 • 5 * 

10* 0. 

6* 

7, 

VVRLM1405 

40 » 4£ 

• 22. 5. 6* 

6 • 5 . 

9* 9. 

11. 11* 

7, 

9* 

WRLM I486 

22 • 13 

, 19. 12, 9. 

11* 13. 

5* 5* 

16* 20* 

8. 

6 * 

waLM 1467 

1 6. 7* 6. 5. 11* 

* Bi 6# 7. 6. 7. 

CALL EAiU 1- (N. C* A 1 . tl 1 ) 
fcETURN 
tNO 

7. 4. 

4 » 7 . 

6 * 6 . 

9/ 

29* 23* 

14* 

6, 

V/RLMl 43? 
WRLM1439 
V/RLAU430 
VRLM 1 491 
WRCMl 492 
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1.1.4 WOLF -SC4020 PLOT PACKAGE 

INTRODUCTION 

/ 

The VvOLF Plot Package is a domplete system for pro- 
ducing SC4020 and/or printer plots. The package has been 
designed to be highly flexible and easy to use. Any plot 
from a quick simple plot (which requires only one call to 
the package) to highly sophisticated plots (including 
motion picture plots) can be easily generated with only 
a basic knowledge of FORTRAN being necessary. 

The SC4020 (Stromberg Carlson 4020) is a cathode 
ray plotter whose outstanding feature is its plotting 
speed. As such, any user who is' producing series of 
plots should use this plotter. Film (35 mm and 16 mm) 
and hardcopy are available and the WOLF Plot Package’ 
also allows for printer plots which can be used as a 
quick look for the SC4020 output. 

A typewriter mode is available which conveniently 
allows plotting of character information on the SC4020. 

This is especially useful as a printer substitute for 
large amounts of output. 

The routines in the Plot Package are all in G and 
H level FORTRAN with the exception of TIMING which is in 
IBM 360 Assembly Language. These routines were designed 
to be efficient on the IBM 560 series machines; no attempt 
whatever has been made to pursue tlie myth of compatibility. 

SYSTEM REQUIREMENTS 

The system requirements for this- package are: 
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• -An IBM 360 which supports G or H level 

' FORTRAN. The 560 Assembler must also be 
available. 

• This IBM 360 must use XI, S. (360 Operating 
System) 

o The Plot Package requires 45K bytes of ' 
core storage.’ 

o An IBM 2400 series 7 track tape drive must 

be available for the SC4020 Plotter Driver Tape 

In addition, the V/OLF Plot Package requires the 
FORTRAN library routines ALOGl'O, SIN, and COS, 
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PROGRAM DESCRIPTION 


The WOLF Plot Package is a sy.Sytem of FORTRAN call- 
able subroutines which are used to^create plots. It is 
structured into four major levels as follows: 

1. Basic Level - The basic level routines perform 
the primary functions of the plot package. Except for a 
few auxiliary routines, the basic level routines are neces- 
sary for all other routines. However, few of the basic 
routines are user called. 

The primary basic routine assembles the instructions 
for the SC4020 tape. There is a printer simulation (of 
the SC4020J in this routine. This allows for SC4020 plots, 
printer plot or both simultaneously. The other major basic 
level routine is used for initialization and termination 
of the Plot Package. 

2 . Intermediate Level 
contains the major user called 
tions of this level are 

a. Grid Overlays (both Cartesian and Polar) 
with labels 

b. Scaling functions 

c. Plotting of vectors or characters in any of 
the following coordinate systems: 

Linear 
Semi-Log 
Log-Log 
Polar 


- The intermediate level 
routine. Some of the func 
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3, High Level - This level is for quick plots with 
a minimum of programming effort. At this level, all of the 
other levels are called upon. Only one FORTRAN statement 

is necessary to produce a plot of an/- %rray of data complete 
with a labeled grid overlay. 

4. Independent Level - These routines perform func- 
tions that are independent of all other levels except the 
basic level. The following are among the functions of this 
level: 

' a. Labels: A string of characters can be plotted 

horizontally, vertically or diagonally (at any 
inclination and direction) . 

b. Graphic Letters: Letters can be putput in any 

size and in any font design (i.e,, standard 
block letters, mathematical symbols or even 
old English script). 

. c. Typewriter Mode: The typewriter function in 

the SC4020 plotter can be used by calling the 
various typewriter routines. These allov; for 
information to be typed (strings of characters 
output in page format) on either the SC4020 or 
printer . 

In addition to these four Levels, there are also a 
number of auxiliary routines. These perform such functions 
as conversion of decimal (binary) numbers to EBCDIC equi- 
valents and dump of the SC4020'plot tape. 

The functional structure of the Plot Package is 
illustrated in Figure 1. 
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FLOWCHART OF SUBROUTINE STRUCTURE 


f 

The flowchart of the subriDUtine structure is 
presented below. The entry points associated 
each subroutine are presented with their respective 
control section names ("subroutine names") . 

It should be noted that the flow chart is 
divided accordinjj to the four major levels of the 
Plot Package: . 

e Basic Level - The basic level routines 

perform the primary functions of the Plot 
Package. 

e Intermediate Level - The intermediate level 
contains the major user-called routines. 

e High Level - This level is for quick plots 
with a minimum of programming effort. At 
this level, all of the other levels are 
invoked. 

t Independent Level - These routines perform 
functions which are independent of all 
levels other than the basic level. 
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INTliRMUDl KtI: LHVliL 


GR[ 1) 

OGRID 

PRi.OT 

SCALli 

PLOT 

POLAR 

COORD 

SLTCRD 


INTEXS 


NEGLOG 



BASIC LCVEL 



PLOTST 

1 

ONDPLT 

1 

rUFRMO 



DATi: 

A 




A-Auxil iary 


X 
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BLKLET 

■CONDNS 

COORD 

CSET 

DATE 

DTAGLN 

EDIT 

EMPTY 

ENDPLT 

FORMAT 

FRAMES 

FRMADV 

GRDNUM 


SUMiVPVRY OF SUBROUTINE ENTRIES 
IN THE WOLF PLOT -PACKAGE 

j 

Draws any set of characters on the SC4020 
to any size. 

For one page printer plots. 

Recovers the raster coordinates of a point 

Initializes the character font in BLKLET. 

Returns the current date (in alphameric). 

Generate a diagonal label. 

Converts and edits binary numbers to 
EBCDIC. 

Terminates the ploter tape output. 
Terminates the Plot Package. 

Generates a format code for use with EDIT, 
Returns frame count. 

Advances the frame. 

Computes arguments for GRID or OGRID. 
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HORIvIN 


IDFRME 

INTENS 

MAXMIN 

MINT 

NEGLOG 

NOW 

NWUNIT 

OGR'ID 

PLOT 

PLOTST 


Generate horizontal label. 

Generates the identification frame for 
the Plot Package. ^ 

Sets the intensity for PLOT or PPLOT. 

Finds maximum and minimum of an array. 

Truncates to the next algebraically smaller 
number. 

Enables plotting of negative arguments 
logarithimically. . 

Obtains the current date and time from 
the system. 

Sets the output unit numbers. 

Computes the necessary scaling for PLOT; 
plots and labels an open grid. 

Plots a set of points or a series of 
contiguous vectors. 

Initializes the Plot Package, 

Computes the necessary scaling for PPLOT 
or PLOT; draws and labels a polar grid. 


POLAR 



PPLOT 


PTYNUM 

QUICKY 

SCALE 

SCHAR 

SC4020 

SETGRD 

SETPAG 

TYPLIN 

UCS 

YEAR 

VERLIN 


Plots a set o£ points or a series o£ 
contiguous vectors in polar coordinates. 

Computes esthetic plotting limits on 
data. 

/ 

j 

Plots X-Y values on an appropriate grid. 

Computes the scaling for PLOT. 

Function value is EBDIC character value 
corresponding to the input SC4020 char- 
acter value. 

Translates plot commands into SC4020 
instructions and/or printer plots. 

Sets the raster grid limits. 

Sets the line count and s tarting ' column 
for TYPLIN. 

Type a line of information on the SC4020, 

Calls CSET with a standard character font. 

Set use of vertical bar ”1” instead of 
for vertical lines on printer plots. 

Generate vertical label. 
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SUBROUTINE CROSS RBPERENCE CHART 

The cross reference chart for the V/OLF Plot 
Package is given below. The calle'3' Routines are 

y 

listed across the top; the calling routines are 
listed down the left side. It should be noted that 
this chart is by subroutine and function entry rather 
than by control section name. The appropriate control 
sections have been designated in the flowchart of 
Subroutine Structure ' given previously. 



CALLING ROUTINES 


CALLED ROUTINES 



1 

EDIT 

EMPTY 

S 

D 

Z 

Q 

CC 

o 

1 

HORLIN 

iNllAI 

PLOT 

SC4020 

SCHAR 

BLKLET 





■ 




o 

■ 

DIAGLN 

■ 





0 



ni 


EDIT 

■ 




• 


O 




ENDPLT 

■ 

■ 

0 


■ 

m 




n 

FRMADV 










Q 

GRID 

■ 

0 




© 

0 


0 

■ 

HORLIN 








n 

0 


IDFRME 








■ 

0 


OGRID 


0 




o 

O ■ 

n 

IISIIIII 

■ 

PLOT 

■ 


in 

m 

■ 

■ 

■ 

■ 

0 

■ 

PLOTST 

■ 

III 

■ 


■ 

■ 



0 

■ 

POLAR 

■ 

o 




o 



o 


PPLOT 









0 


QUICKY 




0 

o 

D 

■ 

0 



SC4020 










0 

TYPLIN 









0 


UCS 

O 




. 






VERLIN 









0 
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BLKLET 


iv JvlV ij^. i 

Pa^^c 1 of 3 
30 September 197 


J>- / 
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DESCRIPTION 

BLKLET is primarily a user routine which is used 
to produce block letters (letters that are drawn as vectors 
instead o£ being printed) * 

Before BLKLET can be used, a character set (which 
consists of the character description arrays) must be input 
through the entry CSET. 

BLKLET first determines the position of the first 
character and then for each character, using the character 
description arrays, determines the vectors that make up 
each character and calls SC402Q to, plot these characters. 
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BI.KLFT 

Page 2 of 3 

30 September 1971 


NAME OLKLET 

ENTPY POINT PURPOSE 

OLKLET TO ORAV/ ANY SET CF CHARACTERS ON THE SC4C20 TO 

• ANY SIZE 

CSET TO INITIALIZE A CHARACTER FONT IN BLKLET 

CALLING SEQUENCE CALL BLKLET ( CHAR . N » I KX • I Y Y 1 1 DLT X * I DLT Y * J S I ZE ) 


SYMBOL 

TYPE 

DESCRIPTION 

CHAR 


INPUT 

- 

CHARACTER STRING TO BE PLOTTED 

N 

I 

INPUT 

- 

NUMBER OF CHARACTERS 

IXX 

X 

INPUT 

- 

X RASTER COUNT OF CENTER OF LINE 

IVY 

I 

INPUT 

- 

Y RASTER COUNT OF CENTER OF LINE 

IDLTX 

1 

INPUT 

- 

X INCREMENT BETWEEN CHARACTERS 

IDLTY 

1 

INPUT 

- 

Y INCREMENT BETWEEN CHARACTERS 

JSIZE 

1 

INPUT 

- 

THE ABSOLUTE VALUE OF JSIZE IS THE SIZE 
factor: =I NORMAL PRINTED SIZE 


•GE<1 NORMAL UPRIGHT CHARACTERS 
•LT.l CHARACTERS ROTATED 90 

DEGREES COUNTER CLOCKWISE 

CALLING SEQUENCE CALL CS ET ( N C . I CH /R . I POS . I VEC ) 

SYMBOL TYPE DESCRIPTION 

NC I INPUT - NUMOER OF CHARACTER IN SET 

ICHAR L INPUT - CHARACTERS 

IPOS 1 INPUT - ARRAY OF POINTERS TO IVEC 

IVEC 1 INPUT - ARRAY OF CHARACTERS DESCRIPTION 

SUERCUTINE USED SCA020 

CCMHON BLOCKS NONE . * 

INPUT FILES NONE 

OUTPUT FILES NONE 

RESTRICTIONS MASTER CHARACTER SET MUST BE INPUT THROUGH ONE OF 

THE rOULCWIKG MEinUDS: 

!• CALL UCS WILL INPUT A STANDARD FONT 
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iiLKLhl 

Page 3 of 3 

30 September 19 


2* SPECIAL CHARACTEW fONTS MAY INPUT 

VIA CSET ' 

y 

IPOS AND IVEC CANNOT UE CHANGED AFTER THE CALL TO 
CSET OECAUSE THEIR LOCATICN AND NOT THEIR VALUES 
ARE SAVED 

REFEftENCcS NONE 


SU3R0UTINE BL KL ET ( C PAR . N , I X X ♦ I YY , I DL T X ♦ I DLTY • JSl ZE ) 
LOGICAL*! CHAR( 1 ) . I ChAR( 1 > « LLl (4 I 
EQUIVALENCE! LL.LL I ( 1) J 

iNTcGGF lx (4 J ,SM IFT (4 I / Z 1 0 CC . ZO I 0 0 . ZCO.l 0 . ZO C 0 I / 
INTEGER*2 IPOS( 1 ) . I VEC ( 1) 

C COMPUTE CEMEF OF FIRST CHARACTER 
. |SJZE=IADS(JSI2E) 

ixttsl XX-( < N-I )*lDLTX-6*ISI2C»/2 
I YQ»1 YY-( ( N-l )*I DLTY-9*ISIZ 0/2 
C LOOP ON ALL CFARACTERS 
DO 50 2-1 <N 
LLI (4 2«CHAR( I ) 

IC»LL 

C FIND CHARACTER 

DO 10 J= 1 t NC ■ 

LLI (A )«ICHAR( J) 

IF (1C«EQ*LL) GO TO 20 
10 CONTINLE 

60 TO 45 
C DRAW CHARACTER 

C NOTE THAT IVEC IS PACKED X.Y.DX-6.CY 
IS=IPCS(J) 
ie= iPCE( j + n- 1 
DO 40 l<=IS.IE 
DO 30 L=1 f 4 

rX(L)=MDD(lVEC(K)/SHIFT(L).SHIFT(3))*I51Zc 
IX( 3) = IX( 3 )-6*IS IZE 
IF( JS J2E*GT*0 ) GO TO 35 
DO 32 L=It3»2 
1T=*IX(L) 

IX{ L) = 1X( L + 1 ) 

IX(L+1 I = IT 
IX( 1 )= 1X( 1 >4-1X0 
IX( 2>s JX( 2 >4 1 YB 

CALL SC4C2C ( 11 t I X ( 1 ) < IX ( 2 ) « I X ( 3 ) • I X { 4 ) ) 

I XU-IXC+ lOLTK 
I Y0=IY£+1DLTY 
CCNTINLE 
C CSET ENTRY 

ENTRY CSET { NC. I CHAR . I FOS . I VGC ) 
c INITIALIZE CFARACTLR FONT 
RETURN 
END 


20 

30 

32 

35 

40 

45 

60 


BLKL 69 
BLKL 70 
BLKL 71 
BLKL 72 
BLKL 73 
BLKL 74 
BLKL 75 
BLKL 76 
BLKL 77 
BLKL 76 
BLKL 79 
BLKL 60 
BLKL 61 
BLKL 6 2 
BLKL 67 
BLKL 64 
BLKL 85 
BLKL 06 
BLKL 07 
BLKL 06 
BLKL 89 
BLKL 90 
BLKL 91 
BLKL 92 
BLKL 93 
BLKL 94 
BLKL 95 
BLKL 96 
BLKL 97 
BLKL 96 
BLKL 99 
BLKL 100 
BLKL 101 
BLKL JC2 
BLKL IC3 
BLKL 104 
BLKL 105 
BLKL 106 
BLKL 107 
BLKL 100 
BLKL 109 
BLKL 1 1 0 
BLKL 1 1 I 
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UAin . 

Page 1 of 3 

DATE 

30 September 1972 


DESCRIPTION . . ■ 

DATE produces an array describing the current date 
in alphanumerics . This routine is used by PLOTST to 
produce the ID frames, but can also be used by the user. 

DATA calls NOW in order to determine the current 
date in the integer form YYDDD where YY is the year and 
DDD is the number of the day in the year. The year is 
determined by division by 1000 and the. day is the modulo 
1000. Then using the array IDAYS (which give the relation- 
ship of days versus month) , the month and day of the month 
are determined (leap years are taken into consideration). 

Finally the year, month and day of the month are 
put into character coding of the form ycar/month/day . 
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30 September 19 


NAFE 


PUFFCSE 

TO RETURN THE CURRENT DATEydN ALPHANUMERIC) 

CALLING SEQUENCE 

CALL CATE(CHAR) 

SYMBOL TYPE 

DESCR IPT ICN 

CHAR L»1 

, OUTPUT - CURRENT DATE IN THE FORM WM/DO/YV (MONTH* 
CAY*YEAR) 

SUERCUTINE USED 

NOW 

CCKMCN BLOCKS 

NONE 

INPUT FILES 

NONE 

OUTPUT FILES 

NONE 

RESTRICT IONS 

NONE 

REFERENCES 

NONE 


SUUKULliNf DATE CCniK) 

DIMENSION CMAR ( 8 ) » I CAYS( I a ) * IDATE ( 31 
LOGICAU*! CHARiL CHAR I t UCHAR 2. LSLASHi OUM( 2) 

1NTCGER*2 ICMAR 

Eoy IV/LENCe (ICHAR* CUM ( 1 J « LCHA R1 J . (OUM( 2 ) .LCHAR2 ) t ( I DATE( 2 ) * 
C EBCDIC 2EftO*SLASH» AND ONE CHARACTER SHIFT CONSTANT 
data U.LSLASH, ISHIFT /2F 0 . IH/ , 2 3 6 / 

C eU/PSED DAYS CF YEAR FOR EACH MONTH 

DATA I CAYS /3l»S9«90«l20ilSltl3li2l2»243«273* 304 *334 * 365 / 

C RECOVER DAY OF YEAR IN IHM FORMAT (YYODD) 

CALL NCW <IYDD. DUMMY) 

C GET YEARtMONTH DAY . . 

IDATE (3) =I YDD/IOOO 
10=M0C(IYDD, 1000 ) 
lCOR=C 

IF (HOC( I DATE ( 3 J * A ) 4 EO #0* ANC. ID. GT .3 n ICOR=l 

00 10 1 = 1 . 12 

IF < JC .LE. IDAYSI I ) ♦ ICOfO CO TO 20 
JO CONTIHLE 

20 IDATE(1>=I ' • 

IF (I-2> 50,40.30 
30 ID=I0-1C0R 

40 ID= ID- IOAYS( 1-1 ) 

C CCNVCRT DATE TO ALRMAfiU M£R 1C “ REMCMOCR COUI VALENCES 

50 

DO 00 1= 1 • 3 

ICMAR= UOATEt I)/ IC + IZ> *ISHI TT< MODI I DATE! I > , 1 0 ) f I 2 
CHAR< JJ=LCHAR1 
CHAR ( 1 ) -LCHAr<2 


DATE 

27 

DATE 

28 

DATE 

29 

DATE 

30 

ID) CATE 

31 

DATE 

32 

DATE 

33 

DATE 

34 

DATE 

35 

DATE 

36 

DATE 

37 

DATE 

38 

DATE 

39 

DATE 

40 

DATE 

41 

DATE 

42 

DATE 

43 

DATE 

44 

DATE 

45 

DATE 

46 

DATE 

47 

DATE 

48 

DATE 

49 

DATE 

50 

DATE 

52 

DATE 

52 

DATE 

53 

DATE 

54 

DATE 

55 
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60 

c all 


UAiL 

Page 3 of 3 
30 September 19 


n^yKODUCiBiLrry of^ 
ORIGINAL PAGE IS POOR_ 


CHAR( i ) = LSLASM 
CHAH< t IsLSLASH 
CONE 

RETURN 

END 


DATE 56 
DATE 57 
CATf. 58 
OATt 59 
OATt 60 
CATE 61 
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EDIT 


DESCRIPTION 

EDIT is used to convert any single precision number 
(integer or floating point) to an equivalent charatter 
array. EDIT is used for labeling values. Such routines 
as QUlCKY and GRID use EDIT although the user often has 
the need to call EDIT. 

EDIT first determines the characteristics of the 
format. The type (E, F or I), the Avidth, the decimal 
point position and the power factor must be determined. 

Then by using divisions by- 10 to determine the least 
significant digits and modulo 10 to determine the remaining 
higher order digits, the number is converted to character 
codes. 
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NAME EDIT 

1 

PUKPCSe TO CONVERT AND EDIT BINARY NUMOERS TO EBCDIC 

CALLING SeCUEhCe CALL ED I T ( A * FCR P tOU T ♦ N ) 


SYMDOL 

TYPE 

DESCRIPTION 


A 

U) 

R 

. INPUT - 

NUMBER TC BE CONVERTED 


FCRM 

(K) 

A«t 

INPUT - 

EDITING FORMAT (K IS THE NUMBER 
IN THE F CRMAT ) 

OF BYTES 

OUT 

A«i 

OUTPUT 

- EDITED EeKDIC NUHDER (W IS THE 
FIELD WIDTH) 

REQUESTED 

n 

(1) 

1 

OUTPUT 

NUMBER CF PRINTABLE CHARACTERS 



SUEROOTINES LSEO NONE 


CCI-WCN BLOCKS NONE 

•input files none 

UU'IHUT piles Nunc 

RESTRICTIONS NONE 

references .none 


SUBROUTINE EDIT ( A . FCR R. OU T » N ) 

LOG I C AL«: I SETDI G . LD IG. LRCOE t OUT, FORM . NEG , ZSW 
INTEGER SPECS »v/ , O, EE .PER » OL ANK » P LU$ , P , ZZ 
pi MEN SI ON SPECS! 3} , SETCIG( 3£ ) ,OUT( I ) ,FORK( 1 ) 

EQUIVALENCE (S^cCS(l>,W),(SrECS(2),0),(SF’ECS(3),P)*{M,61> 

EOU I VALENCE ( SE T D I G ( I ) , PLU S ) , ( SE T D I G ( 5 1 , M I NU S ) » ( GETO I G < 9 ) • ZZ > 

• (SETDlC(l3),PER),<SETblG(17),in,{SET0IG(2l)»EC)» 

• (SET0K(2S).ULANK) , (SETOIG! 29),IDIG) , (SET DIG! 32) »LDIG) • 

• • ( SETD 1 G< 33 ) .MODE ) V ( SETDIG! 3c ) .LMOOE) 

DATA SCTDIG / 

« 200 .zee ,200, 1H4- . ZC 0 .ZOO. ZCO . J H-, ZOO, ZOO. 700 , IHO* 

• ZOO *ZOC,ZOO,1H,, ZOO.ZOO.ZOO .IHl.ZOOrZOO.ZOO.lHE, 

• 200,Z0C,700,1H ,ZOO,ZOO,ZCO,ZOC,ZOO,ZCO,ZOO,ZOO / 

C CLEAR FORMAT SCAN fiUFFEFT 

00 B I-l, 3 
5 SPECS ! 1 )=0 

C SCAN FORMAT 

LOI G=FCRM( I > 

HODt-ICIG 


EDIT 36 
EDIT 37 
EDIT 38 
EDIT 39 
EDIT AO 
EDIT A1 
EDIT 42 
EDIT 43 
EDIT 44 
EDIT 46 
EDIT 46 
EDIT 47 
EDIT 48 
EDIT 49 
EDIT 50 
EDIT 51 
EDIT 02 
EDIT S3 
EDIT 54 
EDIT 55 
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7 


to 




NSI CN= 1 

I-t 
t-I 

LOI G=PCRM ( I ) 

IF ( iC IC .LT . ZZ. OR . I Cl G .GT • Z 2»9 ) GO TO' 10 
SPtCS ( J)=SP£CS( J)*IC+ID1G“Z2 




GO TO 7 

IF (ICIG*N£.PER) CO TO 15 
SPECS (J)=SP£CS(J)*NSIGN 
NSICN=1 


J*Jfl 
60 TO 7 

15 IF tlCIC.EC.PLUS ) GO TO 7 

IF ( I DIG.NE*M INUS ) GO TO 10 
NSlGNs-l 
GO TO 7 
18 N-W 

C GET ADSOL-OtE value OF NUMOER IN FLOATING POINT 
NEG- A tLT* 0 • 

/ B=ABS{^) 

Bl^A 

MSI A8S (Ml 

IF (H«LT*lS7206Al ) B=M 
IF(MOCE«NS«I I) GO TC 20 
C INTEGER PROCESSING 
Oa-l 

Dsbv* 1 


60 TO 25 

20 IP (MOCE«NE.EEJ GO TO 30 

C E FORMAT PROCESSING 
OsMINO (D.N-A ) 


W=MAX0<D+1 »N-4J 

IF (0*CT*0.) IPOW=-KINT{-ALCG10(0l 1-P 
BsBtlC*0<'+(-lPOW)4-,S<'10.0<'# (-0 ) 

IF CD*LT* lO.Of'^P > GO TO 35 
BsB/1 0 .0 


IPOWs IFQvV4^ 1 


GO TO :-s 

C ROW-JO e AND F FORf^AT NUMBERS 
30 B=0<^*5<10***(-0) 

C EDIT WORD INTC OUTPUT AREA 
35 IPEU=Vi~0 

POW= I 0 **<'( lPER-2 ) 

iws 1 

iWMsO 

ZSW=*F/LSE* 

IsO 

38 1=1 <1 r ' 

IF< I -NE. IPERl GO TO 40 

lOIGsPCn 

CO TO €0 

40 IDl Gsf'CD( I KT (D/PQVi ) « 10 )t22 

POW=PCV/( 10. ) 

IF( ZSK .OR. IDl G.NE. ZZ. OR. I .EC* IPER- I .on. I .CQ. W) GO TO 60 
SO 1 WM = I W 

I01G=CLANK 


EDIT 

56 

EDIT 

57 

EDIT 

58 

EDIT 

59 

EDIT 

60 

EDIT 

61 

EDIT 

62 

EDIT 

63 

EDIT 

64 

EDIT 

-65. 

EDIT 

66 

EDIT 

67 

EDIT 

6S 

EDIT 

69 

EDIT 

70 

EDIT 

7 1 

EDIT 

72 

EDIT 

73 

EDIT 

74 

EDIT 

75 

EDIT 

76 

EDIT 

77 

EDIT 

70 

EDIT 

79 

EDIT 

80 

EDIT 

81 

EDIT 

02 

EDIT 

03 

EDIT 

84 

EDIT 

65 

EDIT 

06 

EDIT 

67 

EDIT 

66 

EDIT 

89 

EDIT 

90 

EDIT 

91 

EDIT 

92 

EDIT 

93 

EDIT 

94 

EDIT 

95 

EDIT 

96 

EDIT 

97 

EDIT 

96 

EDIT 

99 

EDIT 

100 

EDIT 

10 1 

EDIT 

102 

EDIT 

103 

EDIT 

104 

EDIT 

105 

EDIT 

106 

EDIT 

107 

EDIT 

100 

EDIT 

109 

EDIT 

110 

EDIT 

1 1 1 


1-154 



EDIT 





Page 4 of 

5 


♦ 


30 September 19 



REPRODUCiBILriY OF TTTF 
ORIGINAL PAGE IS POOR 




GO TO 70 

/ 

EDIT 

1 12 

60 

ZSW— •TPUC* 

* 

EDIT 

1 1 3 

70 

I RTr» = 0 


EOir 

1 1 A 


Cl) TO £00 


EOIT 

1 15 

60 

jr( 1*LT.V.) CO TO 33 


EDIT 

1 1 6 


IF( r.cae *Nt *CE j go tc 

1 3C 

EDIT 

117 


IF( .N-A > GO TO sc 


EDIT 

118 


IDIC-cE 


EDIT 

119 


GO TO £Cb 


EDIT 

12'^ 

90 

I OT N= IPTN+ 1 


EDIT 

121 

100 

ID16 = FI.US 


EDIT 

122 


IF( IPC U*LT .0 ) ID1C. = MINU5 

EDIT 

123 


lPO>;=I^f3S( IPOVv) 


EDIT 

124 _ 


’ GO TO £C0 


EDIT 

125 

110 

Ipl G= IFOw/ 104-ZZ 


EDIT 

126 


CO 10 cCO 


EDIT 

127 

12C 

IOIC-KCD{IPOW.lO)+ZZ 


EDIT 

120 


CO TO 200 


EDIT 

129 

1^0 

IF( IWM .E0«0*0«. • NOT .NCG) RSTUMN 

EDIT 

1 30 


IDlGsS'INUS 


EDIT 

131 


IW^IV/F 


EDIT 

132 


IKTN*S 


EDIT 

133 

200 

OUT ( I V. ) = LpIG 


EDIT 

134 




EDIT 

135 


IKTKs 1PTN+ 1 


EDIT 

136 


CO TO (OC 1 ICO « 1 1 0« 1 20 

• 130« 1 ^.0 ) 1 IRTN 

EDIT 

137 

140 

RETURN 


EDIT 

138 


tND 


EDIT 

139 
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SCf^M 


jDorajT > 


c^eT ftssoLoxe 

VJ=\LOe op- NOMli£R. 
TM 

FLOATINty POX^JT 


E K>KrnAT 

pRocessxwC| 


XMTeCiE R. 
^OOTPOT 


Tl^O.CGSSXMf^ 


E f 
FC»RfyvRT MUMe^5'lt^ 


-2^ 


EDXT VOORl) 
XUTO 
GUTpOT Pv 


■R.ETOR.M 
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i 

j 


DESCRIPTION 

GRDNUM is a routine ^^^hich computes certain character- 
istics' of an array of data values (usually either x values 
or y values) . These characters are used in calls to GRID 
or OGRID. Each characteristic can also be had separately by 
a separate entry and calls to GRDNUM go through each of 
these entries. 

MAXMIN determines FMIN and FMAX (the minimum and 
max'imum values of the array, respectively). 

PTYNUM, given FMIN and FMAX, determine rounded values 
PMIN and PM>\X of FMIN and FMAX, resp., such that [FMIN, FMAX] 
lies in [PMIN, PMAX] and PMIN and PMAX are esthetically nice 
boundaries. NINT, the suggested number of intervals in 
[PMIN, PMAX] is also determined. 

Finally, FORMAT determines a good format for numbers 
in [PMIN, PMAX], An F format is usually produced unless 
the values are either too large or too small in which case 
E9 . 2 . 1 is used . 
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ORtVsJUM 

PUii:-’OS£. ' , 

TO COMPUVe ARGUMENTS TU GRID AND (►GRID 

TO FIND ARf<AT MA>IWU.M AND MINIMUM VALUES 

TO COMPUTF ESTHETIC PLOTTING LIMITS ON DATA 

TO GENERATE A FORMAT CODE TO LAULt. NUMBERS WHOSE 
. VALUCS LIE tETwEEN PMI N AND PMAX (f-LR USE h’lTH 
•EDIT • ) 

CALLING SEQUENCE CALL CRD NUM ( ARR A V # N . P M X M . PMAX * NI NT , FMT » 


SYMBOL 

TYPE 

DtSCR IPT ICN 


ARRAY 

R 

INPUT - 

fLCTTiNG ARRAY 


N 

1 

INPUT - 

NUMCER or ITEMS IN 

ARRAY 

PHIN 

R 

OUTPUT - 

SUGGESTED PLOTTING 

MINI MA 

PM.AX 

R 

OUTPUT - 

SUGGESTED PLOTTING 

MAXIMA 

HINT 

1 

OUTHU f *• 

SUGGtSl'ED NUMLttK OF lr4lLRVALS 

FHT 

A 

OUTPUT - 

SUGGESTED LAUELING 

FORMAT 

CALLING 

SEQUENCE 

CALL M A XM 1 N (ARRAY • N . F MI N * FKAX I 

SYMQOL 

TYPE 

DCSCRIPTICN 


ARRAY 

R 

INPUT - 

THE AFFRAY 


N 

1 

INPUT - 

^UMOER OF ITEMS IN 

THE ARRAY 

FMIN 

R 

OUTPUT - 

ARRAY MINIMA 


FKAX 

R 

OUTPUT - 

ARRAY MAXIMA 


CALLING 

StQUENCL 

CALL PTYNUM (FrUN^FMAX, PHIN. 

PMAX.NINTJ 

SYK30L 

TYPE 

DESCRIPTION 


FKIN 

R 

INPUT - 

AFFRAY MINIMA 


FKAX 

R 

INPUT - 

ARF4AY MAXIMA 


PWIN 

R 

OUTPUT - 

SUGGESTED PLOTTING 

KININA. 

FKAX 

R 

OUTPUT - 

SUGCLSTED PLOTTING 

KA,Xl MA 

141 NT 

J 

OUTPUT - 

SUGGESTED NU/Oi.'R OF INTERVALS 


NANi; 

EhTRV HOINT 

CRUNUM 

V.AXM1N 

PTYNUM 

FORMAT 
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CALLING SEQUENCE CALL FOn hA T ( PM 1 N #PMA < . FMT J 


SVKUUL TYPE 

OESCRIPT ICN 

J 


PMIN R 

INPUT - 

SLG&ESTCC 

PLOTTING 

MI NIMA 

PMAX R 

INPUT - 

SUG GCSTEC 

PLOTTING 

MAXIMA 

FMT A 

OUTPUT - 

SUGGEST EO 

LABELING 

FORMAT 

sueRcuriNEs l£Cd 

NONE 




CCWMCiN ULOCKS 

NONE 




INPUT FILES 

NONE 




OUTPUT FILES 

NONE 




RESTRICT IONS 

NONE 




REFERENCES 

NONE 





5UQR0UT \ K£ CN ONUM ( A RP A V « N * PM I N »PMAX • N I N T * r MT 1 
ClMhNS lUN ARR t Ni 

LOGICAL* 1 NUMS(lO)/«Ol 23A5&709 • / » EFM T ( 7 ) / • E 9 . 2 f I ) * / • F/ • F • / • 
• FMTdliPARENtPOINT . G RD SW/ . T RUE . / , A N I / • I »/ 

EOUIVAl.ENCC ( PAREN. EFMT( 7 J > » ( PCINT, EFMT( 5) ) 

CROS^i'a. false, 

C MAXMIN ENTRY 

ENTRY MAXFIN(ARRAY. N,FFIN,FMAX » 

C FIND ARRAY MAXIMUM AND MINIMUM 
FMlNaARRAY( 1 J 
FMAXaFMIN 

IF(N.LT.£I GO TO 20 
CO 10 1=2, N 

1F( ARRAY ( I> *LT , FM IN )FM lNsAf?RAY < I > 
to jri ARRAY ( n . CT.FHAX »FMAX= ARRAY < I ) 

20 ir-(GROSU)FETURN 
C PTYNUM ENTRY 

ENTRY PTVNUMC Ff'IN,FHAX,PKIN,PMAX.NlNT ) 

MNT=0 

IFIFMl N,e C.FMAX } GO TO 50 
C COMPL.H-- ESIMCTIC PLOTTING LIMITS 

DMAG--1 0* *4 (-F INT (- ALOG 10( AOS ( F KAX-FM I N } ))-l ) 

NL=M INK rr 1 N/LM AG ) 

PMlNs r l.ilAT (Nt. )V rr- AG 

NH=“M1 NT (-FWAYVOMAO) 

rMAX'-FLOY T ( ># D.VAG 

MNT-=Nh-IL 

MNT I I /f- JNT '(■M m 

ir < NH-I%L . hO# 3 1 NT= I 5 

IF( OKOf.kf IRCT URN 


CRON 

02 

CR UN 

03 

GRDN 

84 

CRON 

SS 

CRON 

06 

CRON 

07 

CRDN 

00 

CRON 

09 

CRDN- 

90 

CRDN 

91 

GR DN 

92 

CRDN 

93 

CRDN 

94 

CRDN 

95 

CRDN 

96 

GRDN 

97 

CRDN 

90 

GRDN 

99 

CRDN 

100 

CRON 

101 

CRON 

102 

GRON 

103 

CRON 

lOA 

CRDN 

105 

CRDN 

106 

CRUM 

10 V 

CRDN 

lOG 

GRON 

109 

CRDN 

1 10 

CRDN 

1 1 I 
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c rcf-»-^AT eNTf.Y 

CNirsV For, r- AT ( pMI N,P r.'AX ,FMT > 

C GENfcRATt. FU.^L'/T TU iiii USc.O r.lTH PMIN Aro PMA'5: ^ 

MAG- In V ( 1 . + ALUGI 0{ M'.AK 1 ( A H ■> ( PM AX 1 « Ad5 (f>.‘ I \ M » ) 
1 F( MaC.L T . I >MAG= I 

MAGJ--MI M( ALCC ICX AUr- ( FF A X-PM I N > » > <• 1 

IF(hiAGL/»'^l*C) GO 

JF(«AO#GT.7> CU TO 30 

FMT( 1 )=Ats I 

FMT(2)i-J^tf-3XMAG42) 

FMT( J) =P/f’EN 
CO VO 50 

25 Iw=MAG+MAtD+2 

IF< 1 W#cr «C > GO TO 30 
FMT< 1 ) =F 

FMT<2 J=NUKS( ) 

FMT< 3i-PCIST 

FMT< A ) =NLAS(MAGO-H ) 

/ FMT(5iePAREN 
GO TO 50 

30 CO 40 1= I .7 
40 FMT( n =CFf*T( I ) 

50 GKOSW=*T»nE* 

RETUKN 

END 


Cr?DN 112 
ChU'N 113 
C'TfJN 1 J4 
G^DN 115 
GPDN 116 
CfH'N 11? 
Gf^ON 113 
GPON I 1 9 
GPUN 120 
CPON 121 
CRON 122 
GWDM 123 
GRDN 124 
GRON 125 
GRUN 126 
GRON 127 
CRDN 120 
GRDN 129 
GRDN 130 
GROM 131 
GRUN 132 
CRDN 133 
CRDN 134 
CRDN 135 
CRON 136 
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DESCRIPTION 

GRID is the major user routine in the plot package. It 
is used to set up the scaling factors betv^een subject space and 
object space, draw grid overlays, to plot vectors. 

The object space [the space in the raster world on 
the SC4020 screen) is defined by SETGRD. If SETGRD is not 
called, a default object space is used. 

The subject space Cthe space in which the user units 
exist) is defined by GRID, OGRID, POLAR or SCALE. SCALE defines 
this space and also sets up the scaling factors and initializations 
for the routine GRID. GRID and OGRID use the same coding as 
SCALE (and therefore perform the same function) but also plot 
a grid overlay. GRID plots a full grid while OGRID plots a 
partial grid with tick marks. POLAR is essentially the same 
as GRID except it is used for polar plots. 
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PLOT -is used to plot vectors or characters. Given an 
array of coordinates in subject space and using the scaling 
factors from SCALE, PLOT determines corresponding coordinates 
in the object space and then e ither .^^’ints characters at the 
points or draws vectors connectings these points. PPLOT is the 
same as PLOT except it is used for polar data. 

COORD is used to recovery the raster coordinate correspond- 
ing to any coordinate in the subject space. NEGLOG specifies the 
error procedure for negative logs and INTENS is used to set ^ 

character intensity. 
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NAMt; 


cr?lo 


£MHy POINT PUOT'OSE 

J 

TO CCHJFHMF. TH[-. NLCeSjARY SCAL I f,’G Tljf’! SUtBluJUTlNE 
•PLOT* AND TO PLOT AND LABLL GfJIO LINES 

TO COMPUTt TUF NECESSARY SCALING FOR SLORCIUTINE 
•PLOT* AMD LABEL AN 0^»cN GRID 


PCLAR 

SCALE 
SET CRO 


TO COf^PUTE THE NECESSARY SCALING FOR ‘PLOT* C»PPLOT* 
AND DRAW AND LAS EL A POLAR GRID 

TO RCCOMFUTC THE SCALING FOR SUBROUTINE ‘PLOT* 

TO SET TFE LIMITS FOR THE GRID 


INTENS 


TO SET TFE INTENSITY FOR SUBROUTINE ‘PLOT* 


NEGLOG TO ENABLE THE PLOTTING OF NEGATIVE ARGUMENTS 

logarithmically IN 'PLOT* WITH EITHER A DIFFERENT 
SYMODL OF SUPERPCSITION OF SYMBOLS 

P*-OT TO PLOT A SET OF POINTS OR A SCRIES OF CONTIGUOUS 

VECTORS 


PPI.CT 


TO PLOT 

k$c f>r* 


f" S»ST DF POINTS OT A 
«N PCL^Ar^ vC I iN A Til 3 


^ ^ fs ? r* ^ 
W w f\ A W W 


CCNT I GUOU3 


CCORO TO RECOVER THE RASTER COORDINATES OF A POINT 


CALLING 

■SEQUENCE 

CALL 

GRID(XLO.XH I.NX.AtNXS. YLO.YHI » NY , 8 . NY S ♦ LOG ) 

SYMBOL 

TYFE 

DESCRIPTION 

XLO 

R 

INPUT 

- 

LOWEST VALUE OF AOSCISSA (LOWEST VALUE OF 
X) AT LEFT SIDE OF GRID 

XHI 

R 

INPUT 

- 

HIGHEST VALUE OF ABSCISSA (HIGHEST VALUE 
OF X) AT RIGHT SIDE OF GRID 

NX 

1 

INPUT 

- 

NUM(iER OF INTERVALS ON ABSCISSA. 

A 

A 

INPUT 

- 

LABELING FORMAT FOR ABSCISSA 

NXS 

1 

INPUT 

- 

KUNDER OF INTERVALS AT WHICH TO LABEL THE 
X-AXIS 

VLO 

R 

INPUT 

- 

VALUE OF ORDINATE (LOWEST VALUE OF YI AT 
DCTTOM OF GRID 

nil 

R 

INPUT 

- 

VALUE OF ORDIrMTE (HIGHEST VALUE OF YJ AT 
TOP or GRID 

NY 

1 

INPUT 

- 

HUK.fiER OF IfITERVALS ON ORDINATE 
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H 

A 

INPUT - 

LABELING FORMAT 

FOR^Uy^DINATE 

NYS 

1 

INPUT - 

MJNLCR OF INTcRVAl/S AT WHICH TO LABEL THE 
Y-AXIS 

LCG 

i 

INPUT - 

1 = 0 LINEAR C>llO 
Is) abscissa is 

ORDINATE IS 
Is2 AOSC ISSA I S 
ORDINATE IS 

LUGAR I THMIC 
LINEAR 

linear 

LOGAR I THMI C 


I«3 LO&APIlHfUC GRIO 

• C/»LCIN0 SdOUtNCe CAUL OCR IC ( XLC t X t- I . NX , A . N XS » YLO i YH I »N Y * B . NYS * LOG) 
SYMBOL TYFE OESCRIPTICN 

(see CALLING SF.OUENa-: description for entry point GRID) 

CALLING SeOLENCe CALL POL AH ( RAO I U S i NX . A . NXS i I R DH ) 


SYMBOL 

TYPE 

DESCR IPT ICN 

RADIUS 

R 

INPUT 

- 

VALUE or- OUTER CIRCLE 

NX 

1 

INPUT 

- 

NUMBER OF CONCENTRIC CIRCLES 

A 

A 

INPUT 

- 

LABELING FORMAT FOR CONCENTRIC CIRCL'ES 

NXS 

I 

INPUT 

- 

KUMbER OF CIRCLES AT WHICH TO LAOEL 

IRDH 

I 

INPUT 

- 

INDICATOR FOR LABELING RADIALS: 


si LABtL RADIALS ARE DEGREES 
LABEL RADIALS ARE IN HOURS 


CALLING SEQUENCE CALL SC A LC ( XLO . X F I , YLQ . YH I i LOG ) 

SYMBOL TYPE OCSCFUF'TICN 

(SEE calling sequence D LSC R I P T I CN for entry POINT GRID) 

CALLING SEOUCNCC CALL SE TGRO ( XLOL IP . YL OL I M . XHI L I M t YH IL I M ) 


SYMBOL 

TYFE 

DESCRIPTION 




XLOLIM 

R 

INPUT 

- LOWEST A ESC ISSA 

POSIT ION 

(IN 

RASTERS) 

YLOLIH 

R 

I NPUT 

- LOWEST Of-DIiJATE 

POSIT ION 

( IN 

RASTERS) 

XHILIM 

R 

INPUT 

- HIGHEST AOSCISS 

A POSITION 

( IN 

RASTERS) 

YlllLlM 

f> 

1 NPUT 

- HIGHEST CROINATL PUSM lUf^ 

( IN 

RASTERS) 

CALLING 

SLOUtr;cr: 

CALL 

IMTCNf. (IT) 




f YNiLlL 

TYPE 

DFSCP 

IPV ION 
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IT 1 INPUT - NUMerP rpDM O-JS Sf^lClFYlNG OUSIR^ZO 

INTENSITY or CHAUy.CILR PLOTTING 

CALLING i>LQLLNCE CALL KE G LOG { OVL.M-L . NCHAK J 

SYP;:OL TYPE DESCRXPTICN 

OVekPL L INPUT - OVtPPLOT GIVEN SYKPOL WIM NCHAR IF TRUE 

NCHAR 1 INPUT - RIGHT ADJUSTED PLOT CHARACTER FOR USE V/ 1 TH 

NEGATIVE ARGUMENTS IN POINT PLOT SECTION 
OF SUOPOLTINE ‘PLOT' 

eLAf\K SUrPRESSES PL.orriNG OF NEGATIVE POINTS 
CALLING . SEQUENCE CALL PLO T ( X , Y , K , CHAR ) 


SYMbOL 

TYPE 

DESCf? IPT ICN 

X 

R 

INPUT - 

ARRAY OF *X* VALUES TO BE PLOTTED 

Y 

R 

INPUT - 

ARRAY OF 'Y* VALUES TO BE PLOTTED 

N 

X 

INPUT - 

NUMBERED OF OROEF^ED PAIRS TO BE PLOTTED 

CHAR 

I 

INPUT - 

PLOT' CHARACTcRt RIGHT ADJUSTED 

CALLING SEQUENCE 

CALL PPLCTt X. Y.N *CMAR « IRDH) 

SYMBOL 

TYPE 

OESCn IPT ICN 

X 

R 

INPUT - 

ARRAY OF RADIUS VALUES TO BE PLOTTED 

Y 

R 

INPUT - 

ARRAY OF ANGULAR VALUES TO BE PLOTTED 

N 

R 

INPUT - 

NUMBER OF ORDERED PAIRS TO BE PLOTTED 

CHAR 

1 

INPUT - 

PLOT CHAPACTERi RIGHT ADJUSTED 

IROH 

1 

INPUT - 

INOICATOP OF UNITS OF ANGULAR INPUT 

sO ANGLES ARE IN RADIANS 

»1 ANGLES ARE IN DEGREES 

«2 ANGLES ARE IN HOURS 

CALLING S 

EOLENCE 

CALL COORD( X, Y,KX»KY) 

SYMciOL 

TYPE 

OESCR IPT ICN 

X 

R 

INPUT - 

X VALUE 

Y 

R 

INPUT - 

Y VALUE 

KX 

1 

OUTPUT - 

X ractef value 

KY 

I 

OUTPUT - 

y RASlCf- value 
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SULJsCUTlN-S 
CCIMCN DCOCK 
iNfoV FILLS 
OUTPUT FILLS 
RESTRICT IONS 


RCftRENCES 


FOIT hOr^LlN SC^^O^C 

CPLOTS / 

J 

NONE 

NONE 

XLO.NL.XHI AND YLO*N£.YHl 

IF USEO» SETGRO ^UST OE CALLED OEFONE COPRESPOND I NC 
CALLS TO GWIDi SCALEi OR OCRID 

NONE 




SUdftOLTiNS GRID ( XL 0 . X HI , NX . A ♦ NX5 . YLO . YHI . NY t fi .N YS »LOG 1 

GRID 

IdO 



COMMON /CPLOTl/ G 1 ( £ ) » XLOG ( 2 ) ♦ XLUL I M ( 2 ),. XH I L I M( 2 > *XSCAL( 2 ) t 

GR I D 

187 


• 

FXLO( i )< I T *G2(4 1 

GO 10 

13G 



LOGICAL LUGX , LOGY, OPEN .SCAL SW* XLOG .OVERPL .CJVRPLT »NECfNEGSW . 

GRID 

169 


• 

ANGLE 

GRID 

190 



LOG1CAL41 CHARIA >. lAPRAYlA > .NCMAr<<4) .LCHAR 

GRID 

191 



INTEGEP UP' 

GRID 

192 



INTEGER XV. YV, BLANK 

GRID 

193 



HE A. L 1. CL I M X , l.C— I MY 

GpTn 

1 9 A 



.MfOt n/«. 

f 

tor* 



DIMENSION UnG(2) *CS(2) .DCS< 2)fKXY<2) 

GRID 

196 



DIMENS ION NLAOEL ( 2 ) 

GRID 

197 



DEMENS ION X( 1 ) .Y ( 1 ) 

GRID 

196 



RE^L F CH(3)/'I«t57«2C57C»3«8l9710/i QUAD (2.21 /0«.l*«3«.2*/i 

GRID 

199 


• 

PF!(2I/l..-l./.PM2Th/.26l79S4/ 

GRID 

2C0 



REAL S ING/ .U715G74E- 1/ .COSS/* 5901947/ 

GRID 

20 1 



EQUIVALENCE (KXr(l).KXn.(KXY(2>.KYl) 

GRID 

. 202 



equivalence ( IAWRaY ( 1 ) , ICMA P ) , ( 1 ARRA Y( 41 .LCHAR) 

GRID 

20 3 



EQUlV/LtNCe ( XSC AL( 1 ) . SCALE XI , ( XSCAL( 2 > . SCALEY ) , 

GRID 

204 


• 

<FXLO< U . SXL.0 1 , (r XLCU 2 ) . SYL C> 

GRID 

205 



equivalence ( XL0G( 1 ) ,LOGX | , (XLOG( 2 ) .LOGY) 

GRID 

206 



DATA FLANK . ICHAR /4H .4H / 

GRID 

207 



DATA Cf /10.9/ 

GRID 

208 



DATA I Z /C/ 

GRID 

20 9 



DATA £ C ALS U. OPEN ♦ OVBPL T. NEGSV:. ANGLE/ Si. FALSE 

GRID 

210 



DATA KXY/2C2/ 

GRID 

21 1 



CO TO £ 

GRID 

21 2 

c 

OGRI C 

ENTRY 

GRID 

213 



ENTRY CGRIC < XL 3 . XH I ♦ NX . A » N > S . YLO , YH I . NY . B . NYS . LOG ) 

GRID 

214 



OPEN^.IRUE. 

GRID 

21 5 



GO TO £ 

GRID 

216 

c 

scale 

EN TRY 

GR 1 r> 

217 



ENIRV scale ( XLD . XH I , VLO. YH I .LOG) 

GRID 

2 1 Q 



SCALGWs.T RLE. 

GRID 

21 5 

c 

INIT I A 

Ll2i:, AM'AVfi AND E NT R Y ^ J TCH CS 

GRID 

229 

5 


fXLOl 1 I^XLC 

GRID 

221 



FXLC( I i = xrc 

GRID 

222 



FXHH 1 )-XhI 

GRID 

223 
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F)^H Ui )-YH I 

1 i ( 1 ) > h X j 

II(;^)=NY 

NUALt-L ( I )-NXS 

NLAClL (?. ) = NYS 

C LOOP FOR X Ti tN Y AXIS Pf^OCLSSING 
OO so IA=l ,2 

XLOG( lA)-LCG.tO. 1 A . OF . LO G • E C • 3 
C CCFPOTE SCAl.t EACIGRS AKO LIRE INCREMENTS 
IF (XLCG( 1 A) ) GO TO IC 

XSC At ( 1 A ) -<XH u. I M( I A J- XLOL IF{IA) )/(FXHI( I A) -FXLO ( I A ) ) 
IF (SC/LSv;) GO TO SC 
1(1/} 

X 1NC= (FXHI ( I A )“FXLO( lA J }/FLOAT{ J I 
GO TO IG 

10 IF ( *KCT*SCALSW) GO TO I R 

FXLO( IA) = ALn010 ( FxlO( I A» ) 

F XH I ( 1 A)=ALUGI C ( FXH I ( I A) ) 

> XbC AL( lA ) « (XH IL 1 M( I A J- XLOL I A) ) /(FXHl ( I A)-FXLO( I A ) } 

' GO TO £0 

C CCHPOTfc LOG SPACING INTERVAL ALONG AXIS 
12 NM1N=I I( IA)/<P 

' N1NC=U(1A)4NMIN 

XINC* lC*/FLOAT(rilNC ) 

NLAUtL (I A } =NLAOEL( I A} ♦NLAOEU Z A>/9 
X1=FXLC< lA } 

IsMINT (Ai.OGl C (X 1 ) ) 

NUM»X I/(XI NC«=10 . ¥*I ) 

Xls 1 

IF (NU}-*GT#NMIN) Xl-«XI4ALQG10CFL0AT(NUM}*XINC) 

IF (NLI'eLE.NMINI NUM-0 
FXLO( 1A)-XI 
I ST ARTsNINC* 1 *NUM 
Xl^FXh I( 1 A ) 

1=MINT (ALOGl C( XI)} 

NUF.s-F 1ST { -X I / ( X INC 1 1 0 •<=*! ) ) 

Xl^I 

IF (NOK.GT.MM IN) XI = >:I +ALOG 10 < FLO AT ( NUM } ♦ X I NC ) 

IF (NUf-.Lh.NMIN J NU^'=:0 
FXHl < 1/ ) =X I 

•XSCAL( lA) = (XMIL IM( I A>~XLDLl F( I A) ) / (FXHK IA)-FXLO( IA> > 
. JsNINCvl+NLM“ ISTART 

1 5 I B-PUC ( I A « a ) « I 

|X< ltJi=XLOLlM( 10) 

C LCCP FOR EACK CRIC LINE ON THIS AXIS 
DO 40 X=IZ.J 

c CCFPLTE RASTEf. VALUES FOR GRID LINE 

IF <XLCG(1A)) GO TO aC ' ' 

x1s^xinc<flc;at(i ) 

I X( I A )=Xl •; XSCAl.( I A ) *XLOLIM( lA) 

X I^XI ♦FXLC)( I A) 

K-l 

GO TO :*o 

20 L=1 ^ 1 ETART 

K = MCDU »N| LC ) 

IF <K*tT.C) K-K + Nir.'C 


GRID ?24 
GRID 225 
OR 10 2?6 
GRID 22? 
GRID 22B 
GRID 220 
GRID 230 
GRID 231 
GRID 232 
GRID 233 
GRID 234 
GRID 235 
GRID 236 
GRID 237 
GRID 238 
GRID 230 
GRID 24 C 
GRID 241 
GRID 242 
GRID 243 
GRID 244 
GRID 245 
GRID 246 
GRID 247 
GRID 246 
GRID 249 
GRID 2fiC 
GRID 251 
GRID 252 
GRID 253 
GRID 254 
GRID 255 
GRID 266 
GRID 257 
GRID 256 
GRID 259 
GRID 260 
GRID 261 
GRID 262 
GRID 263 
GRID 264 
GRID 265 
GRID 266 
GRID 267 
GRID 266 
GRID 269 
GRID 270 
GRID 271 
GRID 272 
GRID 273 
GRID 274 
Cf?ll> 275 
GRID 276 
GRID 277 
GRID 2/C 
GRID 279 
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KI=(L-K>/NIKC ^ 

IF (K.eO.C J C.C TO 2S - / 

IF (K.tL.KMN) GC! TC 4C J 

X I = XI < /-LOG J (• < i LO /'T ( K) «■ XI NC I 
25 I X( I - ( >L I XLO ( I A > ) - X5C AL ( lA ) +XLCLI fU I A ) 

X I - I w 1 ♦ t > I 
C PCCT GRID LINE 
30 I 5rCF=XMlL IM( 10) 

1F< CPtX./.i-iO. .NOT . ( I .FO. I 7.0P* U£Q. J ) ) I 5T0P = XLDLl M( 10) fO. 
I v( 16 )-ii.TOP- ix( n; » 

I F( I aC 5( I V( in> ) . c l . ^3) CO TC 33 
I V( lA )=0 

CALL SCA020 ( 1 1 . I X ( I ) , IX ( 2 ) . I V ( I ) ♦ 1 V ( 2 M 
GO TO 

33 CALL SC‘'<C!2C(0P( I A) . IX( U . I X (2 ) . I STOP.D) 

C LAELL CR ID L UE 

3-V IF( NLACEM lA) .COeC. CR. f’00(K .NLA3EL ( I A) ) .Nc.C ) GO TO 40 

IF ( lA .N£;» 1 > GO TO 35 
CALL tC IV( XI , ArOUT , N) 

CALL FCRLIN < OUT , N . I X < 1 ) » I X ( 2 ) - 1 0 ) 

GO TO 40 

35 CALL 6CIT(XI .H.OUTiM 

CALL FCRLIN ( OU T » N , I X ( I ) - 4 <« N t 1 X ( 2 ) ) 

AO CONTIKLS 

50 CONTI M.E 

OPcKs.PALSE* 

SCALf “sFALSe* 


C PCLAF ENTRY 

ENTRY FOl. /R(RA0l US* KX.A.NXS.IRDH) 

RAO^AXINI < (XH iL I f t I J-XLOL IM ( I i )/FLDAT(KXY< 1 } 1 • 
, • (XhlL I 2 »~X1.0L IM (2 ) )/FL0AT(KXY(2) ) ) 

RAO*AfMM ( RA0.6 3 ./S INS ) 

RINC«R/0/FL0AT( NX) 

C INITIAL 12c R^CIUS ARRAYS 
DO 5)0 1*1*2 

0«G( I )i:XLOLIM ( 1 ) TRA0<'FL0AT ( KXYI I ) - 1 ) 

FXLO( I )-~RADIUS»FL0AT ( KXY( I )-l ) 

XSCAU( J )=rad/rad lUS 
Sto XLOCI I )=. FALSE. 

CS( 1 ) - U 
CS(2)=0. 

c DRAW ARCS IN £ DEGREC SEGMENTS 
DO 55C 1 = 1 , IC 
C COMPLTE UNIT CHORC 

DCS < I ) -CS( 1 > -^COSS-CSI? )< SIN £-CS( I ) 

DCS <2 ) =CS( 2) ^ COSb+CS( 1 )*SIN£-CS(2) 
c DEFINE RADIAL CU''PONcNTS 
OFFC=0. 

1 F ( MUr ( I * <5 ) . NE. 1 )Of -T-C* 16. 

I F( KUC (1 . 3 ) .r,L. 1 )(?rFC-0 2. 

NVcC*( AMA>. J( C S( 1 ) *CS( 2 ) ) f (R AD-OFFC 1- I . J / 03. 

xvv=- ( n/:i-Cir h'c)/h-L.ci \T(r:vLC* i ) 

C LCCP ON OUASr. /NlS 

DO SAO Kl=-l.NXl 
OO 5<:C K2* I.KYl 


GRID 

^ n ^ 

GRID 

roi 

GRID 

2o:i 

GR I D 


GR I D 

2S4 

GRID 

26 5 

CRIP 

2ifC! 

GRID 

267 

GRID 

2 30 

GRID 

260 

GRID 

29:'' 

GRID 

291 

GRID 

292 

OR ID 

293 

GRID 

294 

GR 1 1> 

295 

GRID 

296 

GRID 

297 

GRID 

29 8 

GRID 

299 

GRID 

300 

GRID 

3C 1 

GRID 

30 2 

CR 1 P 

303 

GRID 

30 4 

GRID 

30 5 

GP. I D 

30 6 

GR ! P 

39 7 

GtMD 

30 6 

GRID 

309 

GRID 

310 

GRID 

31 1 

GRID 

312 

GRID 

313 

GIUD 

314 

GRID 

315 

GRID 

316 

GRID 

317 

GR I D 

31 0 

GRID 

319 

GRID 

320 

GR I D 

321 

GRID 

322 

GRID 

323 

GRID 

324 

GRID 

325 

GRID 

326 

GRID 

3 27 

CR r 0 

320 

CR 1 1> 

329 

GRID 

330 

GRID 

331 

GRID 

332 

GRID 

333 

GRID 

334 

OR I D 

2 3 5 
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K- I ALiJ% (K 1-K2 ) ♦■I 

KT-f'.JC (K, 2 Ji I ^ 

«X=CS ( H J -f Pt-'(K 1 > 

KY = CM>^T)’:-^m{.42) 

»<XV=;i>f;S:(i< > vpr;(K 1 ) 

RrV-OCilKT )vP.v(K2) 

C PLCT CONChNTJ-lC ChUPeS 

00 52C J=1 *UK 

R J=f^I NC?'?-LCAT ( J ) 

1 X( 1 i - HJ <-KXl OPG ( 1 ) 

1X( 2»-f'J<^RY«CRG( 2) 

IV( i i -RXV< fiJ 

. I V< 2 > • RYV>!=P.J 

sao CALL 5C4C2C ( I 1 , 1 X ( 1 ) . IX < 2 J • I V U ) • I V C 2 > > 

C PLCT RADIAlS 

I V( 1) sFX^XYV 

I I V( 2) sRY<^XYV 

' DO 63U J-l Z.NVi-C ' 

Rj=XrVflFLOAT< J) 4 OFFC 
1 X( 1 } s I^X<:K J4 0RG ( 1 > 

IXt 2)®f^YARJ + 0RC'{ 2) 

530 CALL 0CA020 { 11 . I X I I ) « ! X < 2 ) , I V ( U » I V ( 2 ) ) 

IF (f^OC ( 1 « 3 ).Nii* 1 } GC rO 540 
C LABdL RADIALS 

I X( U = (RAD< 16e ) t RX + ORG { I ) 

I X( ?.i~ ('.AD + 16 • ) <; ftV< CRG (2 ) 

r - I t • • s t-i \ , r 

rRv»*i**i«wu^tk»«"4 '• 

CALL tLiViri'iijf'i* ' I3i ’tOUTiN} 

CALL l-CRL I K( OUT . N . I X( I ) I I X( 2 ) I 
540 CONTIME 

C IKCR6MENT ANGLES- 

CS( I ) *CS( 1 ) + DCS C 1 » 

650 C5< 2i«CS( 2 H^OCS( 2 ) 

IF (NXS.nC.O) RETURN 
C LAee.L CIRCLuS 

IX( I > =CRG( I ) 

DO boO J=NXS t NX , NXS 

FNUR=R/D I U?> KLD A V ( J >/FLOAT ( NX ) 

•CALL CCl T ( FNUM. A ,aUT, N ) 

00 560 K2= 1 . KYI 

1 X( 2 i = Cf«G( 21 4 PM( K2 > YFLCAT( J > tRiNC 

560 CALL hCRLl K{ our • N . I X( 1 ) . 1 X( 2 } » 

KeTUi<N 

C SCTGRO ENTRY 

ENTRY SETCRD ( L 0 L I M. X , L OL I MY , H I L I MX . H I L I M Y ) 

IF (LGLI MX eLT .H I L I MX. AKD*LOL IMY»LT *H IL I MY. AND • 

• LOL IKX .GE t 0. • ANU .LOLIMX.LT. 10 24., AND. 

• H IL IMX «GE . C, . At^D . HI L I M X.LT • 1024. . AND . 

• LOL IK. Y .GC * C. . ANH . LOL 1 W Y« LT 4 1024. , AND. 

• H 1 L i .•'•.Y «Gu . C • . AND 4 I i I L 1 M V. L r . 1C24.J GD TO 570 

CALL l-CRL I N( * Gcil N-CU AKCUMu>.«lS OUT Or RANGE LIMITS NOT 

CALI. SC4C20 <1/.D.D,0.D) 

RETURN 

570 XLOt.l r ( 1 ) --i.nL I*’ X 

XLOLir <2) - LOL IfVY 


GRID 

336 

GRID 

3 37 

C‘UO 

3 JO 

GRID 

3 3S? 

GRID 

.•54'' 

GRID 

3A 1 

GRID 

3A2 

GRID 

3A3 

GRID 

344 

GRID 

34 5 

GRID 

346 

GRID 

347 

GRID 

346 

GRID 

34 9 

GRID 

350 

GRID 

351 

GRID 

352 

GRID 

35 3 

GRID 

354 

cruD 

3S5 

GRID 

356 

GRID 

357 

GRID 

358 

GRID 

359 

GRID 

360 

GRID 

361 

GRID 

36? 

^ r> T r\ 

W k 4 * V 

“» e ^ 

GRID 

364 

GRID 

36 5 

GRID 

366 

GRID 

367 

GRID 

368 

GRID 

369 

GRID 

370 

GRID 

37 1 

GRID 

372 

GRID 

373 

GRID 

37 4 

GRID 

375 

GRID 

370 

GRID 

377 

GRID 

370 

GRID 

379 

GRID 

380 

GRID 

361 

GRID 

302 

GRID 

303 

GRID 

3C4 

GRID 

305 

•GRID 

30 6 

GRID 

387 

GRID 

398 

GRID 

309 

CR I D 

390 

GRID 

391 
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XHl LIN (1 ) =HIL ir.tX 
- XMl L I N <2 > -hi Lirir 
ttclUf.N 

C iNTuNS f.HV.<V 

EN> fiY lNTtN*i( IT I ) 
ir-'ITl 
RETURN 

C NECLCG, ENTPY 

• £NTr*Y hFiGLCG C D V ERP L . NCHAR ) 

OVRPl.T=CVL»--r'L 

I_CHAH = KCMA1<( <’» ) 

NtiOijrts ICllAR.Ne* I5LANK 
RETURN 

C PPLOT ENTRY 

ENTRY PPLOK X .Y , N , ChAR ♦ I RDH > 

ANCLc=»TRUee 
R AD=1 ./RgH( IRDHi I ) 

C PLCT ENTRY 

ENTRY PLOT ( X , V , N , C h A « ) 

LCHARsCHAR ) 

IF < KhAR#t0.8LANK> CO TO 7C 
C PLCr ALL CHARACTERS - SCALING FROM ••GRIO" ROUTINE 
ITXaS 

IP (IT*NE.0J ITXS6 
DO CO la 1 « N 
NECb. FALSE • 

XXaX( 1 ) 

IF (ANCLE ) XX«X( I )»CtS<Y( U «»kAD) 

IF ( •NCr«LCGX) GO TO SA 
IF (XX) 5t .SA,53 
IF (•NCr^NLGSW) GO TO 54 

x'x«-xx 

N£Ca«1RUE. 

XXaAl.OGlO I XX ) 

KX= ( XX-SXLO) *SCALEX4XL0LIM( 1) 

YYaY( I ) 

IF (ANCLE) YY = X( I )*S1N(Y( I ) 4RAO) 

IF (.NCT.LOGY) GO TO Se 
IF (YY) ‘J5.5G.57 
IF (.NCT.NEGSW) CO TO 50 
VY=-VY 
NEGs,TRUE. 

57 YY“ALCC10( YY) 

50 KY=(YY~SYLOMrvCALEY4XLCLlM( Z) 

C PLOT INOIVIDU/L PG\NTS 

IF ( t NCr . NPG.Of.’. OVRPLT ) 

• CALL SC4C2C ( I T X . K X « K Y ,LCHA R » 1 T ) 

IF (NEC) 

• CALL SCAC20 < I T X ,KX »KY ,NCHAr.( 4 ) . I T ) 

CO CCNTIM.E 

ANCLE- -FAL • 

RETURN 

C CCCIftO ENTRY 

cNlNY CaORO (X,Y*KXiKY) 

N- I 

C LOOP UN /I L VLCTOPG 


51 

53 

54 

55 


/ 


GRID 

•i;2 

GN 1 L> 

3=> J 

GR I D 

2,-}h 

G^’ 1 L 

DV-.> 

GR 1 n 

: 6 

GRID 

7 

GN I 0 

3?U 

GRID 

379 

OP 1 D 

4 00 

GRID 

401 

GRID 

402 

GRID 

4 03 

CR ro 

40 A 

GRID 

4 CO 

GRID 

4-0 6 

GRID 

4- 0 7 

GRID 

4 C' 3 

GRID 

4 09 

GRID 

4 1 0 

GRID 

4 1 1 

GRID 

4 12 

GRID 

413 

CR 1 D 

4 14 

GRID 

4 1 5 

GRID 

A 1 6 

GRID 

417 

GRID 

410 

GKlD 

4 1 S' 

GRID 

4 20 

GRID 

421 

GRID 

422 

GRID 

423 

GRID 

424 

GRID 

425 

CR I D 

426 

GRID 

427 

GRID 

420 

GRID 

4 29 

GRID 

4 30 

GRID 

431 

GRID 

432 

GRID 

433 

GRID 

4 34 

GRID 

4 35 

GRID 

436 

GRID 

437 

GRID 

433 

GRID 

A, 39 

GRID 

44 C 

GRID 

4 4 1 

GRID 

AA2 

GRID 

4 4 3 

GRID 

44 4 

GRID 

4 4 (jt 

CR ID 

44 6 

GR I D 

44 7 
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70 DO 90 

X 1=^X2 / 

Y levs j . ' 

C vu::rcP cdc^dinatqs lu faste.'^s 

C SC^(.1(\0 VAKuA Ff^OM CeiD fvUCllNf 

XX=Xl I ) 

IF (Af^CLt) XXeX < I > cns ( V{ t > *RAD ) 

IF (CCCX.AK 0 .XX 4 .S‘e.C.) XX = ALOGIO(A 3 S(XX)) 

. YYeYlW 

IF IAI'CLE) YYeX( n*SlN( Y( I ) 4RAOJ 

IF (LCCV . AKL . YY • »ic , C . ) YY=ALOGI 0 ( AtJS ( YY> ) 

X2={XX“SXLC)* scale X iXLDLlM( 1 ) 

V2~ ( Y Y*SVLQ) V SCALCV^ XLOLlM ( £ ) 

. IF (I .LF. 1 ) CO TO 9C 
Rxv=xa*xi 

ftVV=Y2-Yl 

C LOCP TCI PLOT Vf-.CTC;,T IN- S E. G f-^UN T S NOT GREATER THAN 04 RASTERS 
•JeMAXi (AbS (RXVJ , AuSiRYV) )/63 
RXVkRXV/FLOAT ( J<- 1 ) 

X V=S lG^U HsT ( aHS ( PXVl-64, I t C4, ,RXV ) 

RYV = RYV/‘FLGAT( J+ I ) 

YV«SIGh(AlM(ABS(RYVJ-64,) + f4*.RYV) 

C PtCT VtiCrOR SEGMcNTS 
DO 60 XeIZ»J 
R cK 

KX«Xl+fi<-RXV 
K\«Y1 *r.<-HVV 

Call bC«»v20 I 1 1 * KX t Kv * XVt YV ) 

00 CUNIlhLE 

90 CONTINLE 

KXsXa 
KY«Y2 

ANGLd=*FALSE. 

RETURN 

END 


GNUi 44 5 
GRID 44*. 
G>:it) 4GC 
GRID AC! 
GRID 4j2 
Cfao 4 'j3 
GMU 45 4 
GRID 46S 
GRID 4S6 
GRID 457 
GRID 450 
GRID 459 
GRID 460 
GRID 461 
GRID 462 
GRID 463 
GRID 464 
GRID 465 
GRID 466 
GRID 467 
GRID 46 a 
GRID 469 
GRID 470 
GRID 471 
GRID 472 
GRID 473 
GRID 474 
GRID 475 
GRID 476 
GRID 477 
GRID 478 
GRID 479 
GRID 480 
GRID 401 
GRID 462 
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GRID 
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GRID 
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MORLIN 

Pago 1 of 3 

3U September 1972 

HORLIN 


1 


DESCRIPTION 

HORLIN and its two entries VERLIN and DIAGLN are used 
-to plot an array of characters. DIAGLN is used to output 
a label in which the horizontal and vertical spacing or increments 
between characters is user specified. HORLIN (horizontal 
label) assumes there will be no vertical increment and a 
standard horizontal increment. VERLIN (vertical label) 
assumes there will be no horizontal increment and a standard 
vertical increment. Each uses the same coding. 

Since the center coordinates are input, the coordinates 
for the first character must be computed. Then each character is 
output via a call to SC4020 and after each character the coordinates 
are incremented for the position of the next character. 
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NAME 


HDRLIN ^ 

EMJtY POINT 

y 

I'UKPO SC 

HCkLIN 


TO PRINT t<0RI2ONTAL LAQELS ON THE SCA020 PLOTTF‘< 

VfckLXN 


TO PRINT VERTICAL LABELS CN THE SC4C20' PLOTTER 

D 1AC.LN 


TO PRINT DIAGONAL LAUELS ON THE SCA020 PLOTTER 

calling 

SEQULNCE 

CALL HDRUNIA.Ni X*Y) 

SYMdUL 

TYPE 

OESCRIPTICN 

A 

L 

INPUT - ALPHANUMERIC INFORMATION TO 6E PRINTED 

N 

1 

INPUT - NUMBER OF CHARACTERS TO DE PRINTED 

X 

1 

INPUT - RASTER CCUNT OF , X-COOR D I NA T E OF CENTER OF 
LINE (RASTER COUNT UF Y-CGOROINATE FOR 
VERTICAL LABELS! 

V 

1 

INPUT - RASTER CCUNT OF Y-COORDINATE OF CENTER OF 
LINE («X» FOR VERTICAL LAOELS) 

CALLING 

SEQUENCE 

CALL VERL1N(A,N. X, Yl 

$YKUOL 

TYPE 

OESCR IPT ION 

A 

. L 

INPUT - ALPHANUMtRXC INFORMATION TO UE PRINTED 

N 

I 

INPUT ~ NUMBER OF CHARACTERS TO OE PRINTED 

X 

r 

1 

1 

INPUT - RASTER CCUNT OF X-CODRDINATE OF CENTER 
CF LINE 

INPUT - RASTER CCUNT OF Y-COORDINATE OF CENTER 
OF LINE 

CALLING 

SEQUENCE 

CALL DIAGLN(A.N* >, Y,OX.OY) 

SYKbOL 

TYPE 

DESCR IPT ICN 

A 

L 

INPUT - ALPMAtJUMERIC INFORMATION TO BE PRINTED 

K 

1 

INPUT - NUMCER OF CHARACTERS TO BE PRINTED 

X 

1 

INPUT - PASTER CCUNT OF X-COQRD I NAT E OF CENTER 
CF LINE 

Y 

t 

INPUT - RASTER CCUNT OF Y-COORO I N A VE OF CENTER 
Of LINL- 

DX 

t 

INPUT - RASTFR CCU'.'T liETwECN CHARACTERS IN X 


CIWLCl ION 
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OY I 

INPUT ■ 

SUERtUTlNF. USED 

SC4020 

COMMON SLOCK 

CPLOTt 

INPUT /• ILLS 

NONE 

OUTPUT FILES 

NONE 

RESTRICT IONS 

NONE 

REFELENCES 

NONE 


ccusii or.TwccM charactcrs in y 

oinecTiuK '' 


SUBPOLTINE HQHLIN (A,K.X.Y) 

Implicit iktcce:j<*a (a-zj 
LOGK/*L»l A(N» 

CCMWDN /CPL01 S/ G I ( 1 2 ) * I NTE KS t GH C 4 ) 
C SET INCRcMLNTS 

ox=e 
DVaO 
CO TO 10 
C VLRLiiv Lisl oV 

tN'ihl' vcMuJi-i (AtN*A#V) 

c SCT increments 
DX~0 

C OlAGLN ENTRY 

ENTRY CIAGLN ( A . N . X * V . OX , OY ) 

C SET INITIAL COORDINATES AND OP CODE 
10 I X=X-< h- I J <0X/2 

I Y=Y- I f - I ) *I DY/2 
OPsS 

IF ( IKTENS.NE.O ) OP=6 
C PLOT. EACH CHARACTER 
DO 20 1=1 .N 

CALL SC402C (OPi I X. lY, A( I I . 1NTEN5 J 
I X= I X 4 C X 
20 IY=IY4CY 

RETURN 
END 


HORU 

7 4 

HORL 

7S 

HORL 

76 

HORL 

V7 

HORL 

78 

HORL 

79 

HORL 

80 

HORL 

8 1 

H'TOI. 

A? 

unni 

n_2 

HURL 

64 

HORL 

65 

HORL 

06 

HURL 

07 

HORL. 

horl’ 

68 

69 

HORl 

90 

HORL 

91 

HORL 

92 

HORL . 

93 

HORL 

94 

HORl. 

95 

HORL 

96 

HORL 

97 

HORL 

98 

HORL 

99 

HORL 

100 
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DESCRIPTION 

MINT is a function routine which determines the 
value of the largest integer which is less than or equal 
to the value of a floating point number, X, which has been 
input. Notice that -MINT (-X) can be used to find the C. 

smallest integer greater than or equal to X. 


1-158 


t-j 



MINT 

Page 2 of 2 
30 September 1972 



MINT 

y 

TO TRUNCATE. TO The N.“XT ALGEBRAICALLY SMALLSf^ 
INTEGER 

4 

CAUlINo S=.OU = ^C£ 

mint< X) 

bY*^nJL TYFt 

0E3CR IPT ION 

X R 

INPUT - VALUE TO BE TRUNCATED 

HINT 1 

OUTPUT - LARGEST INTEGER LESS THAN X 

(-MINT(-X) TKJNCATES TO THE NEXT 
algebraically greater INTEGER) 

setKcJTiNcji eseo 

N DNH 

CCN.witN oLCiCKS 

.NONE 

IM-UT K I;L£S 

<# 

NONE 

aUTFt,T FiLfci 

NONE 

Tf^ur lu.NS 

NONE 

()r F-( KuuC «S 

NONE 


FUNCT ICN M InT (X ) 

M liN 1 ~X 

IF (FLCAT ( fc'IN T > . GT . X > MINT = MlNT-l 
R£TU«N 

cn:> 


MINT 

31 

MINT 

32 

MINT 

33 

MINT 

34 

MINT 

35 
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DESCRIPTION. 

PLOTST is used to initialize the plot package (and 
produce a leading ID frame) or to terminate the plot package 
(and produce a trailing ID frame). 

PLOTST sets the object space to default values and then 
calls SC4020 to initialize. If an ID frame is desired, ENTRY 
IDFRME is used. 

IDFRME uses descriptions in data statements to produce 
an ID frame. DATE is called to put the date on the ID frame. 

ENDPLT terminates the plot package by calling SC4020 
to terminate (emptying its plot buffers.) Then IDFRidE is used 
to produce the trailing ID frame. 
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NAMi. 

eMKY PuiNT 
PLUTSr 

XCFHMi 

EKOFuT 

CALLING SLOUENCS 
SVP^OL TYFiZ 
N I 

* 

1C L 

Calling Scouencl 
CALLING SEGCENCH 
SUbALUTlNcS LEED 
CCPMCN CLOCK 
INPUT f iLc S 
OUTPLT files 
REST kICTlONS 
REFLRcNCLS 


PLOTST 

PURPOSE 


/ 


TO I N I T ! Al. I ZL THE PLOT PACKAGE ANO TO SELECT OU' PUT 
DEVICES 

TO GENERATE THE IDENT I F IC AT UN FRAME FOR THc PLOT 
PACKAGE 

TO TERMINATE THE PLOT PACKAGE 
CALL PLOTST (N, 10 ) 

DESCRIPTION 

INPUT - SUM OF DtViCI NUMSERS Oi;SIREO SUCH THAT 
= I DESIGNATES THE 3i MM CAMERA 
=a CESrONATES THE & INCH CAMERA 
S3 DESIGNATES THE PRINTER 

INPUT - TRUE FOR ID FRAME DcSIRcO 

CALL lOFRME 

CALL C.NOrLT ... 

SC4020 HORLIN DATE EMPTY 

CPLOTS 

NONE 

NONE 

NONE 

NONE 


SUbfiOLTINE PLOTST <N.IO) PLOT 

logical S'aITCH.ID plot 

LOGICAL PR INT,PL0TER,LCGX,LCGY . PLOT 

iNTcGcN PLOTIS PLOT 

COMMON /CPLOTE/ PR I NT ♦ PLOT E F . L 3G X , LO G Y , XLOL I M , YLOL I M i PLOT 

« XMlLlM.YHILlM,SCALcX»SCALEY.SXL3i SYLO. I T » I PHNT ,P LO T 1 t . L 1 N I NC • PLOT 
• L I f-IcC T PLOT 

OlMcNilON DAT(2) PLOT 

DlMcNSION A(F),U(2) . PLOT 

L>ATh A/32H/,F.t-C. plot PACKAGE FOR IBM 360 / PLOT 

DATA ki /L'hRUN ON / PLOT 

DATA iz /c/ Plot 

c OtfAULT GRID LIMITS AND SCALE FACTCRS PLOT 


43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 
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UOoX=tFALS£« 




PLOT 

56 

LwOY— *FALSc* 

/ 



PLOT 

57 

XL.iL I . 



PLOT 

53 

YUULlF=2i?. 

J 



PLOT 

59 

XHlLlN=Cr-«>* 




PLOT 

60 

, YHlLl.vs>'i2. 



• 

PLOT 

61 

SCAi_::Xst « 




PLOT 

62 

sca L.k. y - } « 




PLOT 

63 

SXLO=C. 




PLOT 

6A 

SYLUsO* 




PLOT 

65 

IT=0 




PLOT 

66 

IPRNT^c 




PLOT 

67 

PLJT15=2' 




PLOT 

63 

LIN1NC^16 




PLOT 

69 

LIn£CT=C 




PLOT 

70 

C StLiiCT Devices 




PLOT 

71 

Ms** -N 




PLOT 

72 

IF< M.uT«-3)Ms-3 




PLOT 

73 

CACU SCA'a-:(M,D,0,D ,CJ 




PLOT 

74 

30 IF, ( .NCT. IL,» RSTURN 




PLOT 

75 

C ICFK'Wc HNl hY 




PLOT 

76 

LNTkY IDFRMS 




PLOT 

77 

5«I TCHs^TRUi* 




PLOT 

73 

GO TO 4C 




PLOT 

79 

C EM/PLT sNTRY 




PLOT 

80 

tNTRY feSOPLT 




PLOT 

81 

.. CALL £CAt30 '17*etD«C.0J 


. . 


PLOT 

82 

a«i!TCi''*i 




PLOT 

O 9 

C DRAW LARGc oCLARs 

’ 



PLOT 

04 

AO CALL SC4:2C MC .C»0 »1C23»0) 




PLOT 

05 

CALL* SCA«.20 ( 1 0 . 1 C 2 2 « C . 1 0 23 ,0 ) 




PLOT 

36 

CALL SC'4C20 (9, 0 .C f IC23.0 ) 




PLOT 

07 

CALL (9*r ,1022. 1023*0 




PLOT 

98 

c ORAv» swALLeA scutRe; insidl 




PLOT 

89 

CALL SCAi2C ( IC , 2£5 ,256 .767 ,0) 




PLOT 

‘90 

CALL SC4v20 (10,763.256,76^,0) 




PLOT 

91 

CALL 5C4C20 (5,255,256,768,0 




PLOT 

92 

CALL SC4C2C (9,255, 767,760,0 




PLOT 

93 

C DRAW KHOMubS 




PLOT 

94 

DO oO 1= I 2 ,511 , 6A 




PLOT 

95 

CALL 5CAC2C ( 1 1 , I , 5 1 2 *- I , 6 3 , 63 ) 




PLOT 

96 

CALL SC4"'20 ( 11 , 1,511- 1,63,-63) 




PLOT 

97 

CALL sca:: 20 (U,l02 3-I»S12fI,-63, 

63) 



PLOT 

98 

CALL SC4020 ( 11 , 1C23-1 ,51 1- I,-63, 

-63) 



PLOT 

99 

«0 C0NT1M5 




PLOT 

100 

C INSERT TITLu AND CATE 




PLOT 

101 

CALL hCRLlN < A, 3 1 , 5 1 2, 750 ) 




PLOT 

102 

CALL FCRLIN (6,6,512,520 




PLOT 

103 

CALL CATE (DAT) 




PLOT 

104 

CALL hCRLIN ( D AT , 8 , 5 1 2 ,508 ) 




PLOT 

105 

IF (:>a1TCH) return 




PLOT 

106 

C EMPTY DJFFEK5 AND TERMINATE PLOTTER OUTPUT 



PLOT 

107 

CALL SCA-.20 , ( 17, 0. D,D, D) 



* 

PLOT 

108 

IF (PLCTER) CALL EMPTY 




PLOT 

109 

RET UKN 




PLOT 

1 1 0 

END 




PLOT 

1 1 1 
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DESCRIPTION 

QUICKY is a quick plot routine. The user inputs an 
array of coordinates and QUICKY outputs a plot of his data 
complete with grid overlay. 

QUICKY first calls GRDNUM for the x array to deter- 
mine X characteristics for the grid overlay. Then GRDNUM 
is called for the y array. Then GRID is called to output 
the -grid overlay and finally PLOT is called to plot his 
arrays. 
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name 

PURPOSE 

CALLING SeoUEKCE 
SYMBOL TYPE 

X R 

Y R 

N ] 

CHAR- A 

SUBROUTINES LSED 
CCMMCN OLOCKS 
INPUT FILES 
OUTPUT FILES 
RESTRICT JONS 


OUICKY 

^ / 

TO PLOT X-Y VALUES ON AN APPROPRIATE GRID 

J 

CALL QUICK Y<X,Y , S .CHAR) 

OESCRIPTICN 

INPUT — ARRAY OF ABSCISSA VALUES TO OE PLOTTED 

INPUT — ARRAY OF ORDINATE VALUES TO BE PLOTTED 

INPUT - NUMBER OF COORDINATES IN THE X-Y ARRAYS 

INPUT - RIGHT JUSTIFIED CHARACTER TO BE PLOTTED# 
IF CHARACTER IS BLANK. VECTORS WILL BE 
PLOTTED EETWSEN POINTS 


HORLIN 


GRDNUM GRID PLOT 

NONE 

NONE 

NONE 


N MUST BE CREATES THAN i AND NElTticR Trtc X NUR VME 
Y ARRAYS MAY HAVE AlL rlLLMtNJS fcUUAL 


references 


NONE 


SUBROUTINE OUI CKY( X . Y. N, CHAR ) 

DIMENSION X(NI,Y(NJ 
L0GICAL>^1 XFM7( 7) , YFMT ( 7) 

C GET ESTHETIC CRID LIMITS AND FORMATS 

CALL GRONLM ( X .N » XM I N. XMAX 1 NX , X r W T ) 

CALL GROKLM (Y.N.YMIN.YMAX.NY.YPMT) 

IF(NX.EO#C.OR.NY.EQ.C) GO TO 1C 
C DRAW GRID 

CALL GR1C(XM1N. XMAX . NX . XFMT » 1 . YMI N. Y f-5 AX . NY . YFMT . 1 *0 ) 

C PLCT POINTS 

CALL PLOT <X,Y,N. CHAR) 

RETURN 

10 CALL IN (* EMPTY ARRAY OR ALL ITEMS EQUAL IN OUICKY*. 40 

RETURN 
END 


OUIC 

35 

OUIC 

36 

OUIC 

37 

OUIC 

38 

OUIC 

39 

OUIC 

40 

OUIC 

41 

OUIC 

42 

OUIC 

43 

OUIC 

44 

OUIC 

45 

OUIC 

46 

) OUIC 

47 

OUIC 

46 

OUIC 

49 
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DESCRIPTION 


SC4020 is the basic routine which formats the SC4020 
instruction. ' It also simulates the SC4020 by outputing 
printer plots. 

There are two major sections: the printer and the 

SC4020. The first parameter to the SC4020 call is a operation 
indicator. If the printer has been selected, then, through a 
computed GO TO, the operation indicator causes the operation to 
be done. The same happens for the SC4020 if it has been selected. 

The printer section consists of the coding which puts 
characters into the print buffer. The SC4020 section consists 
of set up the SC4020 instructions and storing these into a 
buffer which is output when it is filled. 
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Special entries in SC4020 are equivalent to calling 
SC4020 with certain operation indicators. These include 
FRMADV (frame advance) and EMPTY (empty the buffers). Other 
entries include NUTJNIT (to specify ^the output units) , FRAMES 
(to return the number of frames produced) and YEAR (to substitute 
a vertical bar instead of an "I" for vertical plotting on the 
printer.,) 
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NAME 

SC4020 

ENTRY POINT 

PURPOSE 

SC4920 

TO TRANSLATE PLO 
AND/OR PRINTER P 

FSMAOV 

TO ADVANCE THE F 

N»UNir 

TO SET THE OUTPU 

FRAMES 

TO RETURN A CDUN 

EMPTY 

TO TERM I NAT E THE 

YEAR 

TO USE THE VERT I 

- 

«I" FOR VERTICAL 

CCNDNS 

TO SET A FRAME 0 
INSTEAD OF THE N 


/ 

y 

1 COMMANDS INTO SC4020 INSTRUCTIONS 
LOTS 

FAME 

T UNIT NUMbERS 

T OF THE NUM3ER OF FRAMES PRODUCED 

PLOTTER TAPE OUTPUT 

CAL OAR CHARACTER "1" INSTEAD OF 
LINES OF THE PRINTER PLOTS 

F PRINTER AS ONE COMPUTER PAGE 
CRMAL TWO 


CALLING SEQUENCES BCCALSE EACH OF THE IS PLOT COMMANDS USES THE 

. ARGUMENT LIST D I F F uR[; f JTLT t EACH CALLING 

SEQUENCE IS LISTED. IN EACH CASE THE ARGUMENT 
• »0» ' IS A DLMMV ARGUMENT. AND THE FIRST, 
ARGUMENT IS THE FUNCTION CODE, « * OP * ' • 


SYMBOL TYPE 

CALL SCA02O(-3*O.C,D.O) -3 I 

call SC4020( -2fD.C,D,DI -2 I 

CALL SC4020<-1.D*D.O.D) -I I 

CALL SC4020(0 .OtO.D.D) 0 I ■ 


DESC RI PTION 

COMMAND TO 
SELECT BOTH 
CAMEI^AS AND 
PRIN TER 

COMMAND TO 
SELECT CAMERA 2 
AND PRINTER 

COMMAND TO . 
SELECT CAMERA 1 
AND PR INTER 

COMMAND TO 
SELECT PRINTER 


CALL SC4020( I .D.D.D.O) 


COMMAND TO 
SELECT CAMERA I 


CALL SC4Q20( f «0, D.D.D) 2 


COMMAND TO 
SELECT CAMEfU 2 
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CALL $C4020( J «0«D«0«0) 

CALL SC4020 t •D«D*0»0) 
CALL SC4020(5.X,Y,CHAR»D) 


X I 

Y I 

CHAPU) L*l 

CALL SCC02C( C iXt Y .CHAR, B) 6 I 


X I 

y 1 

CHAR(l) L^l 
B I 


CALL SCA020< 7.x, Y, CHAR, D) 7 


X I 

Y 1 

' CHAB( I ) L*i 

CALL SC4020 ( e ,X , y .CHAR , r) ) c ! 


3 I 

/ 

j 

A I 

S I 


CCMMANO TO 
SCLtCT BOTH 

CAKGRAS 

COWHAND TO 
AOVANCt FILM 

CCW^AND TO PLOT 
SINGLE CHARACTER 
AT COOROfNATES X, 

V AT CURRENT 
LIGHT INTENSITY 

RASTER COUNT OF 
X .COORDI NATE 

RASTER COUNT OF 

V COORDINATE 

CHARACTER TO BE 
PLOTTED 

COMMAND TO PLOT 
SINGLE CHARACTER' 
AT COOROI NATES 
X » Y W I TH 0 
LIGHT INTENSITY 

RASTER COUNT OF 
X COORDINATE 

RASTER COUNT OF 

V COORDINATE 

CHARACTER TO BE 
PLOTTED 

LIGHT INTENSITY 
(0-lS) 


COMMAND TO PLOT 
SINGLE CHARACTER 
AT COORDINATES X, 

Y AND SET LIGHT 
INTENSITY TO 
Bright 

RASTER COUNT OF. 

X COORDINATE 
RASTER COUNT OF 

Y COORDI f^ATfc 
CHAR ACT I. R TO EE 
PLOTTED 

COMMAND TO PLOT 


f 
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CALL SC^020(?fX.Y*STOP,0) 


CALL SC4020( iO.X.Y«STOP.D) 


CALL SC4020< I 1 f Xt Yt XV, YV) 


/ 

J 

X 1 

Y I 

CHARCn L«1 

9 1 

X 1 

Y I 

STOP I 

10 I 

X I 

Y X 

STOP I 

11 1 


X I 


SINGLE CHAKACTEP 
AT COCi^OUMTCS X, 

Y AND SLT LIGHT 
INTENSITY TO DIM 

RASTER COUNT OF 
X COORDINATE 

RASTER COUNT OF 

Y COORDINATE 

CHARACTER TO BE 
PLOTTED 

COMMAND TO 
GENERATE LINE 
FRCM COORDINATES 
(X,Y» TO (STOP.Y) 

RASTER COUNT OF X 
COORDINATE OF , 
STARTING POINT 

RASTER COUNT' OF Y 
COORDINATE OF 
LIKE 

RASTER COUNT OF X 
COORDINATE OF END 
POINT 

COMMAND TO 
GENERATE LINE 
FRCM COORDINATES 
<X*Y) TO (X.STOP) 

RASTER COUNT OF X 
COORDINATE OF 
L1N€ 

RASTER COUNT OF Y 
COORDINATE OF 
STARTING POINT 

RASTER COUNT OF Y 
COCRDIfx'ATE OF END 
POINT . 

COMMAND TO 
GENERATE LINE 
FRCM COORDINATES 
<X,Y) TO (X4^XV. 
Y«-YV) 

RASTER COUNT OF X 
COORD I NATE 
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REPKODUCIBiLlTy OF THE 
ORIGINAL PAGE IS POOR^ — 


CALL SC4020( 12.0. D« 0.0) 


call SC4020( 13«0i0«0>0) 


CALL SC4020( t4.O«C.0*O) 


Y 


XV 


YV 


12 


13 


lA 


I RASTER COUNT OF Y 

^ COCROlNATt 

U ' SICNcO RASTER 

COUNT OF X 
COMPONENT OF THE 
VECTOR TO BE 
PLOTTED 

I SICNEO RASTER 

COUNT OF Y 
COMPONENT O F THE 
VECTOR TO QE 
PLOTTED 

1 COMMAND TO FORCE 

PLOTTER SCREEN 
SQUARE FOR NORMAL 
PLOTTING (REDUCE 
IMAGE) 

I COMMAND TO FORCE 

PLCTTER SCREEN 
RECTANGULAR FOR 
CO?>lTlNUlNG PLOT 
ON NEXT f RAME 
(EXPAND IMAGE) 

I COMMAND TO 

PROJECT PREPARED 
SLIDE ONTO CAMERA 
(REQUIRES SPEC- 
IALLY PHCAPRED 
SLIDE) 


CALL SC4020 ( Ig.X. Y.CMAR .N) IS 1 


X I 

r I 

CHA{;(N) L*l 

N I 


COMMAND TO 
BEGIN TYPEWRITER 
MODE AND TYPE 
CHARACTERS 
STARTING FROM 
(X.Y) 

RASTER COUNT OF X 
COORDINATE OF 
STARTING POINT 

RASTER COUNT OF Y 
COORDINATE OF 
STARTING POINT 

CHARACTERS TO BE 
PLOTTED 


NUMBER OF ' 
CHARACTERS TO 


I 
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CALL SCC020( ie,0*C.CMAR*N) 16 1 

J 


CHARINI L«t 


N 



CALL SCA020( 17»0.C.0.0) 17 I 


CALL SC4020 ( 1 e tO* Cl CHAR *N } 16 . 1 


CHAR(N) L#l 


N X 


CALL SCA020( 19i0 iCiCHAR ,N) 19 I 


CHAR(N) 


L*l 

% 


COMMAND TO 
B2CIN TYPcWRITER 
MODb AND TYPr 

characters 

STARTING AT THC 
bEGINNING OF THE 
LAST VECTOR 
PLOTteO [)R LAST 
POINT PLOTTED 

CHARACTERS TO BE 
PLOTTEO 

NUMBER CF 
CHARACTERS TO 
BE PLOTTED 

COMMAND TO 
ADVANCE FILM. SET 
LIGHT INTENSITY 
TO BRIGHT I AND 
END TYPEV/RITER 
MODE, 


‘COMMAND FOR 
c APR t Ar.F RFTURN 
AND TYPE 
CHARACTERS 
STARTING ON 
NEXT LINE 

CHARACTERS TO Dc 

plotted 

NUMBER OF 
CHARACTERS TO 
BE PLOTTED 

COMMAND TO 
CONTINUE 
TYPEWRITER MODE 
ADDING CHARACTERS 
AFTER LAST 
CHARACTER TYPED 

CHARACTERS TO BE 
PLOTTEO 


N I 


NUMBER OF 
CHAF^ACTERS TO 
Oe PLOTTEO 


CALL SC4020(2C.D«C.O.D» 20 


COMMAND TO 
STOP TYPEWRITER 
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MDOi; AND RETURN 
TO NORMAL KUDL 

yx I 

CALLING StOLCNCE CALL FRMACV > 

calling SLOLENCt CALL . NV.UN I T ( I PRN 1 # I PLD TR ) 


SYMBOL 

TYPE 

DESCR IPT ION 






IPRNT 

1 

INPUT - FORTRAN 
PLOTS 

LOGICAL 

UNIT 

NUMBER 

FOR 

PRINTER 

I PLOT R 

1 

INPUT - FORTRAN LOGICAL 
DRIVE TAPE 

UNIT 

NUMBER 

FOR 

PLOTTER 


CALLING SEQUENCE CALL FR A NG S ( FRmO NT ) 

SYMBOL TYPE description 

FRMONT I OUTPUT - NUMBER CF FRAMES PRODUCED 

CALLING SEQUENCE CALL EMPTY 
CALLING SEQUENCE CALL VBAR 
CALLING SEPt.-ENCf- CALL CDNCNS 

SCHAR 
CPLOTS 
NONE 

PRNT - FORTRAN LOGICAL UNIT NUMBER FOR PRINTER PLOTS 
PLOTS. - FORTRAN LOGICAL UNIT FOR SCA020 PLOTS 

NONE 

NONE 


SU8R0UT1NE USED 
CCMMCN BLOCK 
INPUT files 
OUTPUT. FILES 

RESVRl CT IONS 
REFERENCES 




SUBROUTINE SCA020 < OP , X* V , I NCMAW . YV) 

COMMON /C PLOT 1/PR1nT,P LOT ER .G1 ( 1 J) ,PRNT, PLOT 1 $ , L I N I NC . L I NEC T 
INTEGER SCHAR 

INTEGER CP»nPl ♦ X . Y, XV. YV, PRRT.PLDT 1 t .FRMCNT, 

SHIFT2 .SMI FTA , SM I F T 5 . SH I F T 6 , SH 1 r T O 
INTEGER C ARETN. 5 TOP TP , RF SET 
INTCGER*2 5ETPOS.12/.P 

logical PR INT , PLOTETR . I NI TAL . TL RR, PERR, TYPING . T VP MOO 
LOG 1C A L r ] CPCDOL { ) . {•; FROM ( II' ). O'J T I A 092 ). P.MUF ( 1 2 0 . I 2B ) 

LOG IC AL<- I M . Mlf'iUG . DtJ T • OL Af^ K , SL A S M » T . OAR 

LOGICAl.t:! FORHAI ( BO J/ ' ( 2h I »6A ( I 2 dA I /2H • 1 2BA 1/2X ) ) •/ . ' 

PLUS/»«V 


SCAO 320 
SCAO 321 
SCAO 322 
SC AO 323 
SCAC 32A 
SCAC 325 
SCAO 326 
SC40 327 
SCAO 320 
SC4C 329 
SC40 330 
SC40 331 
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MUODUCIBILITY OF THE 
ORIGINAL PAGE IS POOR 


LOG !C^L * 1 LX, OUM { ^ ) ,CM A.' ( 1 ) , XC HA M 2C- 6 ) • 1 NCHAR < YV ) 

C LX IS cQUI VAL tNCSC TU THE: LCw ORDiiT bVTli IW, 

C THIS IS FO»< eYTE MANlPULATinu PLRPCSSS, ^ 

tOU I LuNCE ( I W » DUM ( 1 ) > » ( OU f/ ( a ) , L X > 

EOU 1 VALENCE { XCHAR ( 5 ) , CHAR ( U ) 

E0UJVALENCC(SETP0S, IS) 

C IMTIALI<CE SWITCHES 

DATA IMTAL.PcRR »T£RR, TYPING /A«F/ 

C SC-4020 OP CCCES 

DATA CFCOOE/ Z2 1 , 2 2 2 , Z 23 , Z2 C » 2 03 , Z C I . 2 :»2 , 20 4 , 

• Zia,2lA,230,225. Z2a .2.?a,ZlO ,212,22c.22A.ZOO,ZOA / 

DAT A C/RETK, STOP TP, RESET /ZCO0C0O2A,ZO3CO0CCA,2OCOCCC2E / 

C INSERTS ERROR SLASHES I UPPER RIGHT COR^JCK OF FRAME 

DATA ERROR / 2 I C , 20 F , 2 OF , Z 3 1 , Z C 0 , 20 S . Z 3 I , Z 3 1 . 2 3 1 ♦ Z 3 I , Z3 1 , ZO 
C PLCT CHARACTERS FCR PRINTER PLOTS 

DATA 1I,M IKUS.OO T. 9LANK, SLASH.OAR/ IHI . IH- . IH. , IH ,1M/,Ih|/ 

C CCNSTANTS FUR BIT MANIPULATION 

DATA SFIFT2,SMIFT4, SHIFTS. SHIP T6, SHIFTS / 

* 200CCOC04, 2CC0CCC10, ZO0COCO2O. ZCCCOOfAO. ZCCCCOlOO / 

C wise, CONSTANTS 

DATA IZtIZAP /OiZCOCC / 

DATA lELANK ZZOCOCOCAO / 

C NCFMAL ENTRY 

OPlJsIAES<CF) 

C TEST FOR DEVICE SELECTION CP CODE 
IF (0P1.GT.3) GO TO 1 
C SET DEVICE SfelTCHES 
PRiNT-CP.LE.O 

• 9 \J 

C RETURN IF PRINTER SELECT ONLY 
IF(OP1*EO,0) RETURN 
GO TQ I 
C FRMACV ENTRY 

ENTRY FRMADV 
C SET CP CODE FCR RESET 
OPl-17 

C TEST FOR INITIALIZATION 
1 IF ( IMTAL ) GO TO 20 

I NI TAL=,TKUE* 

C ZERO FRAME CCLNT AND COMMAND BUFFER INDEX 
I FRM=0 
icOUNT=0 

C SET UP CHARACTER TRANSLATICN MATRIX 
lY/=0 

DO S I=IZ,255 . ■ 

5 CHAR( I J=LX 

DO 10 1=IZ,63 

XW=1 1 i 

KH-SCH/R( I I 
10 CHAR(KH)=LX 

C SET PRINT nUFFER TO BLANKS 
DO lb 1=1, 12B 
DO 15 J=1 , 12H 
15 P JUF( t , J ) = BLANK 

C ZERO CURRENT ruiNT F^EGISTGR VALUES 

ftx= 0 . 


SCAC 332 
SC4C 333 
SCAC 334 
SC<^ 335 
scat 336 
SC4C 337 
SC4C 33C 
SC4C 339 
SC4C 34C 
SC4C 3A1 
SCAO 342 
SC40 343 
SCAO 344 
A / SC4C 345 
SCAC 3*6 
SCAO 347 
SCAC 346 
SCAO 3A9 
SCAC 350 
SCAO 351 
SCAC 352 
SCAC 353 
SCAO 354 
SCAO 355 
SCAO 356 
SCAO 357 
SCAO 356 
SCAC 359 
SCAO 360 
SCAC 301 
SCAC 362 
SCAO 363 
SCAO 364 
SCAO 365 
SCAO 366 
SCAO 367 
SCAC 366 
SCAC 369 
SCAC 370 
SCAC 371 
SCAO 372 
SCAO 373 
SCAC 374 
SCAC 375 
SCAO 376 
SCAO 377 
SCAC 376 
SCAO 379 
SCAC 300 
SCAC 361 
SCAO 302 
SCAO 3C3 
SCAC 30A 
SCAO 3Q5 
SCAC 306 
SCAO 367 
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C TEST 
20 

C SET 


C RETURN 


C SET CP 


Rir=o. 

FOR INPUT CG^'^'^AND IN \^RCKG MOCC 

IF ( ( TYPING. AND. OP I .CE .1 7 ) . CR. ( . NO T • T'?'p4 NG . AND . 0 PI . L E . 17) ) 
CO TO 25 ^ 

PRINTER ANC PLOTTER ERROR FLAGS 
PERRs.IRUE, 

TERR-.TRUE. 

IF NOT FPAKE ADVANCE 
IF (0PUNE.4) RETURN 
CODE FCR RESET 
OPl=17 

C SET NEW PROGRAM MCDE 
25 T YPM0C=TYP1NG 

C BEGIN PROCESSING 
C TRANSFER ON CF CODE 

GO TO (45, A5 ,A5 . 3C . 45. 45» 45 .45 . 35 ♦ 35. 35. 45. A5 »45 , 

• 43. 43 » cD , 45. 45. 30) , OPl 

C SET FOR plotting MODE 
30 TYPMOD-^FAUSE, 

. GO TO 45 

C RECOVER X VECTOR COIW’ONENT OR AXIS END POINT 
35 DO 40 1= 1 . 4 


40 


C SET 
4 2 
45 

C TEST 


DUMC I ).sINCI“AR( I ) 
XV= IW 
GO TO 45 

FOR TYPEVifilTER MODE 
TYP ):OD-.TRUE. 


• n ru ^ r 


GO TC 150 


4 Wi 

FOR PRINTER PLOTS 
IF (4NCT4PRINT) 

C TRANSFER ON CP CODE 

GO. TO (ISO r 1 50.1 50 . 1 £5 .05. 6 5. 6 5. 65 .55.00. 50. ISO. 1 SO. 1 50. 
• 90. 95. 125.65. 100. }4£). OP 1 

C SET PLOT CHARACTER FOR VECTOR 
SO PT=DOT 

C CALCULATE MAXIMUM DEFLECTICN MAGNITUDE 
V=AMAXC( lADS(XV) , lAOSI YV) ) 

C TEST FOR DEFLECTICN CUT OF RANGE 
IF (V.LT.64.) GO TO 53 
PERR= • TRUE. 

GO to 150 

C COMPUTE PRINTER VECTOR COMPONENTS 
53 N=V/0. 

IF (N.EQ.O ) GO TO 
RXVs^FLCAT ( XV )/V 
RYV=FLCAT ( YV )/V 
CO TO 70 

C SET X AXIS CF/RACTER 
55 PT-MINLS 

c COMPUTE PRINTER VECTOR 
N = < XV“X)/0 
RYV=^0 • 

RXVsl , 

GO TO 70 

C SET Y AXIS Ch/RACTER 
60 pr=ii 


70 


COMPONENTS 


SC4C 330 
SC 40 339 
SC4C 39C 
SC4C 391 
SC4C 3^2 
SC4C 393 
SC40 394 
SC40 395 
SC40 396 
SC40 397 
SC4C 398 
SC40 399 
SC40 400 
SC4C 401 
SC4C 402 
SC4t> 403 
SC4C 404 
SC4C 405 
SC40 406 
SC40 407 
SC4C 400 
SC4C 409 
SC4C 410 
SC4C 41 1 
SC40 412 
SC40 413 
C 4 C 414 
S C 4 C 4 15 
SC4C 416 
SC40 417 
SC40 416 
SC4C 4 1.9 
SC4C 420 
SC4C 421 
SC40 422 
SC40 423 
SC40 424 
SC40 425 
SC40 426 
SC40 427 
SC4C 420 
SC4C 429 
SC40 430 
SC40 431 
SC40 432 
SC4C 433 
SC40 434 
SC40 435 
SC4C 436 
SC4C 437 
SC4C 430 
5C4C 439 
SC40 440 
SC4C 441 
SC4C 442 
SC40 443 
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C CCWPUTE PRINTER VECTOR COMFONCNTS 
N = < XV*Y >/0 
RYV=l« 

RKV=0 • 

GO TO 70 

C SET PLOT CHARACTER TO INPUT 
es pr= INChAR( IJ 

N = 0 

c ccmpute printer deflections fcp origin 
70 RXi=FLC/TC X >/0. 

RY-FLC/T( Y )/0. 

C LOOP TO PLOT /LL CHARACTERS IN LINE 

DO eo i=iz.N 

C CCf'PLTE PRINTER DEFLECTIONS FOR EACH POINT 
R=l 

IX-=RX + R^RXV 
lY=l2e-lNT(RY+R*RYV) 

C TEST FUR DEFLECTIONS IN RANGE 

IF (IX.CiE.O«ANO*IX«LE. 127»AN0. lY.GE 


/ 


.AND# IY,LE. 128) GO TO 75 


PERR=.TRUe* 

GO TO eo 

C INSERT CHARACTER IN DUFFER 
75 P8UF ( ixn . I V)sPT 

60 CONTINLE 

60 TO 150 

C SET CURRENT FCINT INDEX TO GECINNING OF LINE 
65 1 NDEX* <IND£X-< 127 )/ 126* 128 

GO TO lOO 

C SET CURRENT FCINT INDEX FRCM GIVEN POINT 
90 index* 128* < I 27-Y/O J tX/e 

60 TO 105 

C SET CURRENT FCINT INDEX FRCM CURRENT POINT REGISTERS 
9S INDEX* 123 ♦( 1.2 7-* I NT ( RY ) ) + I NT (RX ) 

C TEST FOR CriARACTERS TO PLOT 
100 IF (YV.LT.l) GO TO 150 

10 5 I VI* 0 

C LOCP TO PROCESS ALL CHARACTERS 
DO 120 1*1. YV 
LK= INCFARI I ) 

C TEST FOR CARRIAGE RETURN 

IF ( Ih .NE.CARETN ) GO TO llO 
C SET CURRENT FCINT INDEX 

INDEX* ( INOEX-t 1 27 > / I 23* 120 
GO TO 120 

C TEST FUR STOP TYPE OR RESET CCMKANC 
jjO IF ( I ft .NE. SI OPTP . AfJD. I W. NE. FESET I GO TO 115 

C MUST BE LAST CHARACTER IN STRING 
IF < I .NE.YV) GO TO 113 
c SET MODE sv, ITCH 

TYPMOD=«F ALSE . 

C TEST FOR STOP TYPE COMMAND 

IF ( 1 E *EO. STOPTP ) GO TO 1A5 
C SET. CP CODE PCR RESET 

UPl-17 


GO TO 125 

C SET Cf-iRO?< INCICAYCR 


SCAC 

AA4 

SCAP 

AAS 

SCAC 

AA6 

SCAT. 

AA7 

SCAC 

4A0 

SC AO 

AA9 

SCAC 

A50 

SCAO 

A5l 

SCAC 

A82 

SCAC 

A53 

SCAC 

A 8A 

SCAC 

A55 

SCAC 

A56 

SCAO 

A57 

SCAC 

458 

SCAC 

A59 

SCAT 

AGO 

SCAC 

A6l 

SCAC 

462 

SCAC 

463 

SCAC 

464 

SCAO 

465 

SCAO 

466 

SCAC 

A07 

SCAC , 

468 

SCAO 

A 69 

SCAO 

A70 

SCAO 

A 1 1 

SCAO 

47 2 

SCAD 

A73 

SCAC 

A74 

SCAC 

475 

SCAC 

476 

SCAO 

477 

SCAO 

47 8 

SCAO 

479 

SCAO 

480 

SCAO 

481 

SCAO 

482 

SCAO 

403 

SCAO 

484 

SCAC 

A85 

SCAC 

A06 

SCAC 

A07 

SCAO 

488 

SCAO 

A09 

SCAO 

490 

SCAC 

491 

SCAO 

492 

SCAO 

A 93 

SCAO 

A94 

SCAC 

4 95 

SCAC 

496 

SCAC 

49 7 

SCAC 

49 8 

SCAO 

499 
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PERRs.lRUE* 

CO TO 15C 

C INCREMENT CUfif-fNT P^OINT INDEX 
lit: 1 NO EX s f.'jL) ( if,-DE;X ♦ 1 6 J ♦ 1 / 

C INSERT CHARACTER IN EjUFKER 
POUF ( INDEX . 1 ) =LX 
^20 CONTINLE 

GO TO 150 

C test for EKfTCRS CN THIS FRAME 
*25 IF (•NCT.PERRJ GO TO 135 

C INSERT ERRCR SLASHES 

00 130 l£l ♦ 126 
130 POUF( 1,1 »=SLASH 

C RESET ERROR SvITCh 
PERR=, FALSE. 

C OUTPUT PpiNT eUFFER 

135 WRI TE (FRNT .FORMAT ) PBUF 

C INITIALIZE PRINT EUFFER 
DO 140 I , 1 2b 
/ DO 140 J= 1 , 1 28 

140 POUF( I ,J)=ELANK 

C TEST FOR RESET COMMAND 


IF ( 0 F 1 .NE. 17 I GO TC 145 
C 2 ERO CURRENT POINT REGISTER VALUES 
RXsO» 

RVsC. 

GO TO 150 

C SET CURRENT FCINT REG.ISTER VALUES 
145 RXsMOC (INDEX , 125 1 

RYsl 2 e-lNDEX/l 2 Q 
C TEST FOR SC 40 Z 0 PLOTS 
ISO IF( .NCT.PLCTERJ GO TO 300 

C INSERT OP CODE IN COMMAND EUFFER 

OPI :^l CF 

•155 OUT ( ICCUNT-U )t=OPCODE(OPl ) 

iwao 

C transfer on CP CODE 

GO TO < 205 , 255 . 285 , 255 , 185 , ISO, 185 , 105 , 165 . 170 , 160 , 2 65 , 285 , 

• 2 65 , I G £ , 20 0,2 50 , 20 0 ,20 5,27 5 >, 0 P 1 

C CCKPUTE VECTCP COMPONENTS 
160 I XV= J ALS( XVJ 

I YV=:I AES( YV) 

C TEST FOR COMFCNENTS OUT OF RANGE 

IF ( I XV»G r ,63 .OR . I YV.GT . 63 ) GO TO 350 
C INSERT LQAClNC VECTOR OITS IN COMMAND 
LX=OUT (IC0UNT<-1 ) 

I W= I IXV/SH I FT 2 

OUT ( I CCUNT fl ) -LX . i 

C SET VECTOR DIT CONSTANTS 
IU=IVV//SHIFT 2 
IF (YV.GT.CJ lW=IWF 5 HirT 4 
IF (XV.GT.OJ lv;=v I Wt SHI FT 5 
our ( ICCUNT 44 I -LX 
I l/Y --Mtnt 1 VV, SH I FT 2 ) fSH IP T 4 
I r;x=HCC( I XV, smr T 2 MSH Jrv 4 

GO TO 1?5 


SC^C 500 
SC40 501 
SCAC 502 
SC4C 503 
SCAT 504 
• SC4C 505 
SC4C 50 6 
SC4C 507 
SC40 508 
SC4C 509 
SC40 01 C 
SC40 511 
SC4C 512 
SC4C 513 
SC4C 514 
SC40 515 
SCAC 516 
SC40 517 
SCAC 518 
SCAC 519 
5CA0 520 
SCAC 521 
SCAC £22 
SCAC 523 
SCAT 524 
SCAC 525 
SC40 526 
SCAC 527 
SC40 526 
SCAC 529 
SC40 E30 
SCAC 531 
SC40 532 
SCAC 533 
SCAO E3A 
SCAO 535 
SCAO 536 
SCAC 537 
SCAC 538 
SCAO 539 
SCAC 54C 
SCAC 541 
SCAC 542 
SCAO 5A3 
SCAO SAA 
SCAO 5A5 
SCAC 546 
SCAO 547 
SCAT 5A8 
SCAC 549 
SCAO 55C 
SCAO 551 
SCAC 552 
SCAO 553 
SCAO 55A 
SCAO 555 
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CO TO 350 


C SET X STOP CCC6 
165 IS=-1-)«V 

SETPG£=IZAP 
GO TO 175 
C SET Y STOP CCCE 
170 IS=10£i-)CV 

C TEST FOR STOP CODE OUT OF RANGE 
^75 IF { XV « GT • 10 23*0'R • XV.LT, 0 ) 

C SET CEFLLCTICN 3IT CONSTANTS 

I WY=MCC( IS .SH IFT 2 ) *Shl FT4 
•i WX=( 1 S/SH IFT3 ) £H I F 74 
I W-sKOC (IS/SH IFT2 , SH IFT6) 

OUT ( lCCUNT+4) =LX 
GO TO 195 

C SET INTENSITY GIT COfJSTANTS 
leO 1-UX = Y V/SH IFT2 *511 IFT4 

1WV=MCC(YV,5HIFT2)*SHIFT4 
1 W=^0 

C STORE CHARACTER IN COMMAND EUFFER 
LXs INCFAR ( 1 > 

OUT ( iCCUNT+A )=CH AR ( IW} 

IF U tt *EQ. lOLANK ) OUT( ICOUNH*! )sOPCODE(Gl 
GO TO 195 

C SET tJIT CONSTANTS TO ZEROES 

les iwxso 

I WY=0 

C STORE CHARACTER IN COMMAND SUFFER 

: #> A • I • ^ A 

^ V 4 II ^ M 

LX=INCI-AR( 1) 

OUT ( I C CUNT +4 ) =CHAR( IW ) 

C TEST FOR DEFLECT ICNS OUT OF RANGE 
195 IF CX*CT*lC23.0R.X,LT.C*OR.^,GT.1023.OR.YiLT.0) 

C INSERT □ IT , CCNSTANTS AND DEFLECTIONS IN COMI'.ANO BUFFER 

IW*lWX<X/ShIFT6 
OUT ( lCCUNT+2) =LX 
1W=X 

OUT ( lCCUNT+3)aLX 
lS=l02j-Y 
I,W=1WY-*IS/SHIFT6 
OUT ( I C CUNT ^ 5) =LX 
IW= IS 

OUT < I CCUNT+6 »=LX 

C TEST FOR TYPE SPECIFIED PCINT OPERATION 
IF I0P1.NE*15) GO TO 285 
C INCRHP.ENT CCF/'ANO BUFFER COUNTER 
IC0UKT*lC0LNTf6 

C SET TO nCGIN V.ITH SECOND CHARACTER 
IN-2 

GO TO £10 

C COHRECr fJUFFEP COUNT 
200 ICOUNT-ICOLrJT4 I 

C START ON FIRST CHARACTER 
20 5 IN-1 

C TEST FOR CHAR/CTERS TO ADO TO OUFKER 
210 IF (IK.GT.YV) GO TO 290 

IW=0 


GO TO 350 


SC4C 556 
SC4C 557 
SC4C 550 
SC4C 559 
SC4r> 500 
SC4C 561 
SC4C 562 
SC40 563 
SC4C 564 
SC40 565 
SC40 566 
SC4C 507 
SC40 568 
SC40 569 
SC4C 570 
SC40 071 
SC40 572 
SC4C 573 
SC4C 574 
SC40 575 
SC40 576 
SC40 577 
SC40 570 
SC40 579 
SC40 SCO 
SC40 5Ci 
SC40 582 

^ ^ e* ^ 

SC40 554 
SC40 585 
SC40 556 
SC40 587 
SC4C 508 
SC7»0 589 
SC40 590 
SC40 '591 
SC40 592 
SC40 593 
SC40 594 
SC40 595 
SC40 596 
SC40 597 
SC40 590 
SC40 599 
SC4C 600 
SC40 601 
SC40 ’602 
SC40 603 
SC4 0- 604 
SC40 605 
SC40 606 
SC40 607 
SC40 600 
SC40 609 
SCAD 010 
SC4C 611 
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C LOCP TO PliCCIiSS ALL CHARACTETPS 
DJ 2 JO 

IF ( I CCUNT .LT ,4092 > GO TO 215 
C OUTPUT OUFFcR IF NCCCSSAWY 

UHlTtZ (PLOT! E,20C0 ) ( OUT { I ) , I := 1 , I C UUNT'T / 

ICOUNT=0 

21 S LX= INCF AR ( J J 

C TEST FOR STOP TYPE OR RESET OPERATION 

IF < .Nc^ STOPTP , AND, I V. ,NC . RESET ) GO TO 220 
C MUST BE LAST CHARACTER In STRING 
IF (J,AE,YV> GO TO 350 

C INSERT .CONMANC IN DUFFER AND SET MCDE SWITCH 
OUT(ICCUNV+l )=LX 
TYPMOC=, FALSE, 

GO TO 240 
LX=CHAF( M/> 

:rt character in duffer 

I COUN T SICOLNT+I 
OUT ( I CCUNT )=LX 

TO StE IF still IN TYPEV/RITER MODE 


220 
C INSE 

23C 

C TEST 
240 

C TEST 


IF (TYPMODI GO TO 290 
TO SEE IF LAST CHARACTER WAS STOP 
IF < I h ,E0, STQPTP ) GC TO 275 
C SET CP CODE FCR RESET 
OPI-i7 

C TEST FOR ERRORS ON THIS FRAME 
250 IF C.NCTiTERR) GO TO 275 

C TEST TO SEE IF 

ir 


TYPE 


I • 4 ■ ^ tN 4 I 

w I • > I’P i N'G I GO 


• u 


lUUU 

260 


C INSERT STOP CCDE COMMAND IN BUFFER AND ADJUST COUNT 
OUT ( ICCUNT+ 1 ) =OPCODE{ 20) 

1 COUNTS ( lCCUNTF0)/6*-6 
GO TO 260 

C TEST FOR ERRCRS ON THIS FRAME 
255 IF (.NCT,TERR) GO TO 265 

C RESET ERROR SWITCH 
200 TERR=ffALS£. 

C TEST FOR ROOM IN EUFFER 

IF (ICCUNT,LT.4C77) GO TO 265 

C OUTPUT BUFFER , ERROR MARK CCCEStANO RESET OR FRAME ADVANCE 

WR ITE (PLOT1£,2COO) (OUT Cl), 1 = 1, I COUNT J » ERROR , OPCODE ( OP I ) 
GO TO 295 

ERROR COOES IN DUFFER 
DO 270 1=1,12 
our ( I CCUNT 4 I) =ERR0R ( I ) 

. OUT C I CCUNT 4 1 J ) =OPCDCE { OP 1 ) 

ICOUNT-SICOUNT410 
GO TO 290 

BUFFER COUNT TO AN EVEN COMMAND SIZE 
1 COUNT = ( I COUNT 46 )/G*6 
CO TO 290 

C increment OUFfER COUNT DY A FULL CCMMAnD SIZE 
2 DO I CO UN T = 1 cnu?JT 46 

C OUlPUT IlUFFLP IF PULL 
290 IF ( I CCUNT ,LT ,4092 ) GO TO 3C0 

WRITE (PLOT1I.,200C ) ( 0 UT ( I ) , I = 1 . l COUNT ) 


C INSERT 
265 
270 


C ROUND 
275 


SC40 612 
SC4D 613 
SCAD 614 
SC4C 615 

SCAT 616 

SC4C 617 
SCAC 610 
SC4C 619 
SC40 62C 
SC40 621 
SC40 622 
SC4C 623 
SC40 624 
SC40 625 
SC40 626 
SC40 627 
SC4C 628 
SC4C 629 
SCAT 630 
SCAD 631 
SCAC 632 
SCAD 633 
SC4C 634 
SCAO 635 
SCAO 636 
SCAO 037 
SCAO 638 
SCAO 639 
SCAO 640 
SC4C 641 
SCAO 642 
SCAO 643 
SCAO 6A4 
SCAO 6A5 
SCAO 646 
SCAD 647 
SCAO '648 
SCAO 649 
SCAO 650 
SCAO 651 
SCAO 652 
SCAO 653 
SCAO 654 
SC40 655 
SCAO 656 
SCAO 657 
SCAO CDD 
SCAO 659 
SCAO 660 
SCAO 601 
SCAO 662 
SCAO 663 
SCAO 664 
SCAO 665 
SCAO 666 
SCAO 667 
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C 2ERU BUFFER CCUNT 
295 ICOUNTsO 

C SAVE. KUOE CF CPERATION 

.JOC TYP ING=TrPS'OD ^ 

C RETURN IF NOT FRAf-'L' ADVANCE OR RFSET ^ 

IF (OF I .Nc . 1 7 . ANC.OF I . Nc . A ) RETURN 
C^. iKCRfcWtNT FRA/-E CCUNT AND 2ERO LINE COUNT 
IFRM=IERMfl 
LINECT=0 

C RETURN 

RETURN 

C SET ERROR INCICATCK AND RETURN 
350 TCRRs • TRUE • 

RETURN 

C NhUNIT ENTRY 

ENTRY NV^UNIT ( I P RNT , I PLOTR ) 

C SET PRINTER AND PLOTTER UNITS 
PRNT-IFRNT 
PLOTl isIPLCTR 
return 

c frames entry 

ENTRY FRAMES (FRMCNT) 

C RETURN FRAME CCUNT 
FRMCNTelFRf^ 

RETURN 

C EMPTY ENTRY 

entry empty 

C EMPTY PLOT oUFFEk anu tNO e-iLE OUTPUT UNIT 

II- I iULUNl .GT.OI WRITE ( PLD T 1 $ , 2 0 0 0 ) ( OUT ( I ) , I = I , I COUNT ) ’ 

ICOUNTsO 

END FILE PLOTIS 

RETURN 

C VEAR ENTRY ' 

ENTRY VCAR 

C SET y AXIS CF/RACTER TO VERTICAL BAR 
11=UAR 
RETURN 

C CCNONS ENTRY 

ENTRY CONORS 

C SET PRINT FORMAT FOR ONE PAGE INSTEAD OF TWO 
F0RMAT(18)=PLUS 
RETURN 

2000 FORMAT <6Al) 

END 


SCAC 600 
SCAC 669 
SCAC 670 
SC AO 671 
SCAC 672 
• SCAC 673 
SCAC 67A 
SCAC 675 
SCAC 676 
SCAC 677 
SCAC 678 
SCAC 079 
SCAC 6S0 
SCAC 051 
SCAO 062 
SCAC 633 
SCAC 684 
SCAC 685 
SCAO 686 
SCAO 607 
SCAC 008 
SCAO 689 
SCAC 690 
SCAO 691 
SCAO 692 
SCAC 693 
SCAC 69A 
SCAC 695 
SCAO 696 
SCAO 097 
SCAC 698 
SCAO 699 
SCAC 700 
SCAC 701 
SCAO 702 
SCAO 703 
SCAO 70A 
SCAO 705 
SCAC 700 
SCAO 707 
SCAC 708 
SCAC 709 
SCAO 710 
SCAO 711 
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SC4020 
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DESCRIPTION . 

SCHAR is a function routine which when given an 
SC4020 character value determines the corresponding EBCDIC 
character value. 

The method involves an array XCHAR which is set up 
by a data statement so that if I is the input and SCHAR is 
the output, then basically SCHAR=XCHARCI) . 
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KAKt SCMAR ^ # 

PUKPCSE THE FUNCTION VALUE I i T nr> L'liC D 1 C CHARACTER VALUE 

CORRFSPUNDl KG TO THE INPUT SCAO^O CHARACTER VALUE 

calling sequence SCHAR(I) 

SYMBOL TYfE DESCRIPTION 

I I INPUT - SC4C2C CHARACTER VALUE 

SCHAR I OUTPUT - EBCDIC CHARACTER VALUE 

SUERCUTINLS LSED NONE 
CCHMCN BLOCKS NONE 

INPUT FILES NONE 

OUTPUT FILES NONE 

RESTRICTIONS NONE 

REFERENCES NONE 


INTEGER FUNCTION SCHAR <11 
LOGICAL LX*CH AR, XCMAR iOUf<( 4 ) 

DIMENSION CHAR( 1 ) . XCHAR( 64 I 
EQUIVALENCE ( I W , DUM ( 1) ) , { L X ,OUM ( 4 ) ) 

EQUIVALENCE ( XC H AR ( 2 ) , CHAR ( 1) ) 

DATA Ifc /O/ 

c TABLE CONTAiKS EGCOIC CHARACTER VALUES CORRESPONDING TO SC4020 

C CHARACTER SET - NOTE THAT APPROPRIATE SC4020 VALUES RANGE FROM 

C 0 TO 63 

•C Z4A=CENT ,25A-EXCLAMATI0N P C I N T . 2E0 =0- 2“ d PUNCH 
DATA XCHAR / 

• ‘O*** l»»»2*i*3* ,*4« .»5**:*6* **7*. 

• * 6 S * t iH »«•#•.» a • . 

, .*P». 

« • 0« ,» R *. 25A « 

, • •»•/«, •S'»‘T'.*U***V*«'W',»X*. 

• •y»,»2«,ZE0. 

c PERFCRM TABLE LOOKUP 
LX=CMAFU) 

SCHAR^IW 

RETURN 

END 


' SCHA 

29 

SCHA 

30 

SCHA 

31 

SCHA 

32 

SCHA 

33 

SCHA 

34 

SCHA 

35 

SCHA 

36 

SCHA 

37 

SCHA 

38 

SCHA 

39 

SCHA 

40 

SCHA 

4 I 

SCHA 

42 

SCHA 

43 

SCHA 

4 4 

SCHA 

45 

SCHA 

46 

SCHA 

47 

SCHA 

48 

SCHA 

49 

SCHA 

60 

SCHA 

61 

SCHA 

52 
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TIMING 


/ 


DESCRIPTION 

TIMING has one entry, NON, This is used (by DATE, 
for example] , to determine the date and time of day^ A 
system macro is used to get the date in YYDDD integer 
format and the time of day in hundredths of seconds. 
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EEPRODUCIBILITy OF THE 
C^IGINAL PAGE IS POOR 


CC^TRUL SECTICN NA{/,E T[^'INC 

ENTKY POINT PUFJPOGE 

KCtt OBTAINS THE CURRENT DATE' IN IBM PACKcD INTEGER 

FORMAT (YYDCU) AKD THE TIME OF DAY IN INTEGER 
HUNDREDTHS OF SECONDS 

CALL ING SEQUENCE CALL NOW ( I YDD. I HP) 5 

SYMBOL TYPE OESCRlPTICN 

lYOD I OUTPUT - YYDOD FOR CURRENT DATE 

IhH 1 OUTPUT - TIME OF DAY IN HUNDREDTHS OF SECONDS 

SUEHOUTlNeS USED NONE 
CCFMCN BLOCKS NONE 

INPUT FILES NONE 

OUTPUT FILES NONE 

RESTRICT 1UN3 NONE 

t^eecoBft>r nc NONE 


« 


TIMING 

START 

C 


TIMI 

33 


ENTRY 

NOW 


TIMI 

34 

NOW 

SAVE 

( 14* 12) « t« 


TIMI 

35 


BALR 

4*0 


TIMI 

36 


USING 

4,4 


TIMI 

37 


LM 

6, 6, 0(1) ADDRESSES OF OUTUT 

ARGUMENTS TIMI 

36 


TIME 

EIN 


TIMI 

39 


ST 

0*0(6) RETURN 

TIME OF DAY IN HUNDREDTHS OF SECONDS TIMI 

40 


ST 

),TEVP+4 MUST 

CONVEF?T YYODD 

TO BINARY INTEGER TIMI 

41 


CVB 

l.TEMP 


TIMI 

42 


ST 

1,0(5) BEFORE 

RETURNING IT 

TIMI 

43 


RETURN ( 14*12} 


TIMI 

44 

* 




TIMI 

45 

TEMP 

DC 

C*0* 


TIMI 

.46 


END 



TIMI 

47 
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DESCRIPTION 

TYPLIN is a routine which is used to type line 
information on the SC4020. 

The SC4020 is put into typewriter mode and the carriage 
control character is inspected. A ’1* causes a frame advance 
for example. The line is typed and the SC4020 is put back into 
plotting mode. 

SETPAG is an entry in TYPLIN so the user can specify 
where the typing should start. Otherwise, typing starts 
where it ended last or at the beginning if typing has been 

just started. 
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NAWc 

EMfiY POINT 
IVFLZN 

SeTPAG 

CALLING SEQUENCE 
SYMdOL TYPE 
LINE A 

N .1 

CALLING SEQUENCE 
SYMBOL TYPE 
LINES X 

XCOL I 

SUuKCuriNE USED 
CCMMCN BLOCK 
INPUT FILES 
OUTPUT FILES 
RESTRICTIONS 
REFERENCES 


/ 


TYPLIN 

PURPOSE j 

TO TYPE A LINE OF INrQRM.^TlON 

TO SET LINE NUMOGR At40 COLUMN NUMBER OF TYPLIN 
CALL TYPLINILINE #N > 

\ 

OESCR IPT ICN 

INPUT - ARRAY OF CHARACTERS (FIRST CHARACTER IN 
••CARRIAGE CONTROL'M 

INPUT - LENGTH OF LINE 

CALL SETPAGILINES. ICOL) 

OESCR IPTICN 

INPUT - LINE NUMEER FOR NEXT CALL TO TYPLIN 

INPUT - COLUMN NUMBER FOR SUBSEQUENT CALLS TO 
TYPLIN 

SC4020 
CPLOTS 
• NONE 
NONE 
NONE 
NONE 


SUBROUTINE TYPLINIL INE.N) 

COMMON /CfLOTl/ Gl ( 1 5 ) .L I NINC . LINECT 
LOCICAL'i' I LINECn.LX. 13LANK,0UM (A ) . 5TUPC0 
EOUI VALENCE ( IW .DUM (1) J*(LX,OUK(4)> 

DATA ULANN,STODCD/l b ,Z0A / 

DATA 1GNL.12ERD /ZO 0 0 C C C F 1 t Z CO C 00 OFO / 
CATA IV./0/ 

DATA IX /C/ 

PERFORM INDICATED CARRIAGE CONTROL OPERATION 
LXsLINE( 1 J 

IF( 1 U.EU. lONE ) CO TO 10 
IFI 1 V.'. EO • IZLRC ) LINECT=L I NCCT4- I 
IFCLINECT <L IN INC .LT , 1024) GO TO 50 
10 LlNECT=0 


TYPL 

TYPL 

TYPL 

TYPL 

TYPL 

TYPL 

TYPL 

TYPL 

TYPL 

TYPL 

TYPL 

TYPL 

TYPL 

TYPL 
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42 
4 3 

44 

45 

46 

47 
4B 

49 

50 

51 

52 

53 
64 
55 
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CALL SC40;:0 (17.0.0,0.0 
SO I r=l 02 J-L IN tic T^L IN I NC 
1F(N.L0* i ) RETURN 
C TYPc LINE 

M~M I NO ( N < 1 , I 20 J y 

LX=L1NE(N1) 

LINE (N I I =51 OPCD 

call SCACcO ( ib. IX. I Y, L INE( 2) . M 

LIN£(Ni»=LX 

LINECTsL INECT+1 

RcTURN 

c setpag entry 

ENTRY btTPAG (LINES. ICCL) 

C SET LINE NUMDfcR ANO STARTING COLUMN 
lX=sICOLve-8 

IF( ICUL-GT.126#0R. I COL .LT *1 ) I X=0 
LINECTsL i NES 

return 

ENO 


TYFL 56 
TYPL 57 

TVPL sa 

TYPL 59 

type 6'' 

• TYPL 61 
• TYPL 62 
TYPL 63 
. TYPL 64 
TYPL 65 
TYPL 66 
TYPL 67 
TYPL 68 
TYPL 69 
TYPL 70 
TYPL 71 
TYPL 72 
TYPL 73 
TYPL 74 
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/ 


DESCRIPTION 

UCS contain the character description arrays for the 
standard EBCDIC character font. These are set up in data state- 
ments. ‘ 

If BLKLET is to be used (to produce block letters) 
than some character description must be input via CSET in 
BLKLET, In order to aid the programmer, a simple call to 
UCS will accomplish the above. 
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NAKfc 

HUWPOSt 

CALLING SLOUctCE 
SUERCUTINc UEtO 
CCPMCN DLUCKS 
INPUT FILES 
OUTPUT FILES 
RESTRICT IONS 
REFERENCES 


UC5 

/ 

TO CALL CSET tolTH A ^TANyARD 3G0 CHARACTER SET 

CALL UCS 

CSET 

NONE 

NONE 

NONE 

NONE 

NONE 


SU0ROUTINE UCS 
C CHARACTER SET 

LOGICAL#! ICHAR(62)/ 

• 

C INDEX OF AOOVe CHARACTERS IN IVEC 
INTEG£K«<2 1P0S(63>/ 

• It* At 14t <21 * 27* 31* 24* 44* 47. SO* S6* 59* Gl*' 65» SO* 76* 

• 62» 91* SO. 1 09 , 1 1 I . I 1 6 . 1 le ♦ 1 2 e * 1 24 * 1 27 . 1 31 * I 39 . 1 42 » I 3 I , 1 62 . 1 65 » 

• l73*104.1£7.2C2.2l3i221.2 2Si227.2.12t2 34,233,24 9.2 57.2 67,270,2 75, 

• 204*20 6* 267, 220*293. 310,311,31*.. “21*329*3 33. 350, 351. 353*305/ 

C RASTER COORDINATES OF VECTORS FOP EACH CHARACTER - 

C PACKED AS X.Y.DX.CY 

lNTcGER#Z IVECC190)/ 

• 200 9 9, 2 60 39 . 2 1 3A 0 , 2 0 C 6 9 , 2 C5 A 0 , Z6 3 < 1 , 7 6C 62 . 2 4 50 1 , 245 2 0 ,26441 , 

• 261 63, Z4C £ I , Z4020 , 2 67 4 2,2 494 0 , 207 S2 . 2 02 65 * 7.2 04 2 * 220 8 0 ,240 82, 

• Z006 9. 20 9A0,Z6742,Z62 65,Zii082. 74C 20,7.rC69,209CO,Z05AO»20QCO, 

• 2006 9 *20 SCO, ZC5A0.24361, 24480,262 62,/ 40 22. 2404 0,22042,70265, 

• 20 762, 22SC0, 26742,20069, 26069, 20 5C.'), 2 3 069, 22060, 22980,26267, 

• 24002, 24040,22042,20262,24270, 20 ^16 9, 7. C3C6, 2502 5, ZCC69,?00CC, 

• 20069, 23 634, 23594,26069,7 0069, 26609, 7 6069»/C2(* 5, 20732,22900, 

« 267 42* 26245,24002, 2 4 040,220 4 3 , 200 69, 2C9dC , 2 685 1 • 2 65 63,25471 , 

• 254IO,202£5,7C7C2,72’58C,26743,26205,7 4C'S2i/404C , 220 4 2*26042* 

• 20069*209EC,Zfc8 5l,2 6563,2G4 7l,2rj4]C.760 44,7 6851 ,2 59 20.20871, 

• 20662tZl££l»215AO, 264 51,?6163, 250 7 1 ,7. DO.’-’ 0,21051,2 3C 69, 209C0, 

• 20267, 22C42,2tO BO, 2 4082, 26267, 23 0 3 9,2. ■^0 9 9, //Q49, 7 20 74, 24054, 

• 24089* 200C9,2 6O09,23534,235 94,23 0 6:/,7O0CO*2CCCO,7C9C0,Z15A0» 

. *20167, 20 t7t . 2 19A0, 26351 ,2 1051 . 2 I 0 /..j . / -.o V 1 , / 6 I 6 / . 720 80 , 2 30 o9 , 

• 22772»ZC7t2,2Z980,2f>742,7C66. l, 244t2r744.'.C,70lu3,20C6>l ,700C0, 

• 20o7 I , 2 I 9A0 ♦ 7.68 S I , 2 6>66 2 , Z 557 1 , 755 3* , 2 r.4 S I » 26 1 D'l , 2507 1 , 7S020 , 

• 21051 * 25C £9 . 7C4t35, 2 C4CC ,2 6900 , 2066 i , / 06B0 . 2655 I . 261 64 , 2507 1 ♦ 

• 2S020, 21CLI . 2 6051 .25920*7 0871 . 70 167. 2 10 5 1 ,2 lOAC .25071 .261 63, 


UCS 

UCS 

UCS 

UCS 

UCS 

UCS 

UCS 

UCS 

UCS 

UCS 

UCS 

UCS 

UCS 

UCS 

UCS 

UCS 

UCS 

UCS 

UCS 

UCS 

UCS 

UCS 

UCS 

UCS 

UCS 

UCS 

UCS 

UCS 

ucr. 

UCS 

UCS 

UCS 

UCS 

UCS 


22 

23 

24 

25 

26 < 
27 

26 

29 

30 

31 

32 

33 

34 

35 

36 

37 
30 

39 

40 

41 

42 

43 

44 

45 

46 

47 
46 

49 

50 

51 

52 

53 

54 

55 
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• 264&I • 

Z5SZ0. 2^471 . 

ZCB6 I .ZC9C'' 

ft 

Z2CA9 

.2 I9Ap 

,2 6051 

,26662 

,25571/ 

UCS 

55 

EOUIVALESCE ( IV£C( 

191 ) , IVECI { 1 

>) 





ucs 

57 

lNTEOc.f^*£ 1 VECl C 1 )/ 




• 


ucs 

50 

• 26020 • 

21 b£l 

2C07 1.26*01 


26163 

,2 50-71 

,2502C 

,2 105 1 

.20163 


ucs 

59 

• 2047U 

21CE1.21CA0. 

Z5C7 1.Z6167 


266-5 1 

, 2 5o:-c 

, 2 0 5 7 1 

. 2C56 3 

,2 1451 


UC J 

60 

• 214A0* 

25471 , 2??5l . 

Z22aC.Z427l 


2 1 36J 

,21671 

,22700 

,2 5651 

,221 07 


ucs 

61 

• 2217D* 

22 1£ 1 1 2 2270. 

Z 3 1 6 1 . 2 C 3 i! 4 


25014 

,25051 

,2.4 152 

. 23303 

,23672 


ucs 

62 

• 24B7U 

2CEC0, 23266. 

7 3C 69 , Z 


2407 1 

,241 CC 

.2 304 1 

,21151 

,20262 


ucs 

63 

•204dl* 

22 5 70,2 254 1 , 

2 066 1 . Z C77 1 


2. 1 Of t 

. 23970 

,2.5051 

♦22C7C 

,Z2«^61 


ucs 

64 

•Z2170» 

2J0CI ,2227c. 

22267,22570 


23267 

, 2 3C69 

,22 142 

,22100 

.ZA102 


ucs 

65 

• 26361 • 

26 4 Cl » 2 C561 , 

ZC652, 22580 


2 1- 6 4 2 

» 204C0 

,2 1 IA6 

. 251 26 

,Z107l 


ucs 

66 

• Z2I72, 

233£3. 23652, 

2 265 1 .2 2570 


22561 

, 23561 

,22670 

. 22270 

. 22261 


ucs 

67 

• 22370. 

Z32< l» 221 71 , 

2C5CC, 26362 


Z0 5CC 

, ZC0C9 

.22 170 

. Z21 6 1 

.22270 


ucs 

66 

• 23161 . 

Z2C 7 1 ,2 2651 . 

22670.23671 


24761 

,24651 

,23950 

, 21761 

,21071 


ucs 

r,o 

•200C9. 

230 £l ,22161 » 

2 227 1 , Z 30 7 0 


2407 1 

,25161 

,25251 

, 2 3370 

♦ ZOOCC 


ucs 

70 

•21004, 

264 l4,Z3Ce 1. 

2 326 2, 2 3470 


24402 

,26661 

,26742 

, 2C702 

.22960 


ucs 

71 

•22570. 

22561,23561, 

2257C, 22270 


22261 

, 22370 

.2 3261 

,21'3e6 

,23306 


ucs 

72 

•205C0. 

Z07CC, 22070, 

23062,22042 


20264 

. 20632 

. 22070 

, Z5642 

,24271 


ucs 

73 

•26363. 

22270,23271 , 

? 4263.22251 


21362,2X571 

,22670 

,24551 

,23662 


ucs 

74 

•204C0, 

206CC.22662. 

24663/ 








ucs 

75 

CALL CS£T(62, ICHAR 

, IPOS, I VEC) 








ucs 

76 

RETURN 










ucs 

77 

END 










ucs 

7S 
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1.2 GEODYN DATA HANDLING SUPDORT PROGRAMS 

There are five data handTing programs used by the 
GEODYN program: DODS SORT-MERGE, GEOS SORT-MERGE, EPHEMERIS 

TAPE GENERATOR, ORBl CONVERSION and TTlil- TABLE GENERATOR. , 

J 

DODS SORT-MERGE sorts and merges DODS formatted data 
from two tapes onto one tape. The data can be from any 
number of satellites. GEOS SORT-MERGE performs the same 
task; however, data from only one satellite should be used. 
EPHEMERIS TAPE GENERATOR generates various ephemerides by 
processing and nutating the values found on the JPL ephemeris. 
ORBl CONVERSION converts an IBM 360 system 9-track tape to 
the same format on a 7-track tape. TDIF TABLE GENERATOR 
generates tabular information for use with subroutine TDIF 
to compute time differences between systems A.l and DTI. 

Detailed descriptions of the formats of the data 
tapes are found in Appendix C of Volume III -- GEODYN 
SYSTEM OPERiMIONS DESCRIPTION. 
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DODS SORT -MERGE 


INTRODUCTION 

The DODS SORT-MERGE program sor<^ data from DODS 
format data tapes by satellite identification numbers into 
chronological, station and then measurement type order, 
eliminating duplicate data records. 



, C. j- i- 

30 September 1972 


MAIN-DODS SRTMRG 

/ 


DESCRIPTION 

The main program SRTMRG sorts and merges blocks of 
250 sorted records which are obtained from the subroutine 
RDNSRT. The blocks are sorted onto two scratch disk units, 
which are then merged and sorted again onto two alternate 
scratch disk units. The process is repeated until all the 
records are sorted by satellite identification number and 
in chronological order. Then the subroutine WRITE is 
called to write out the data records onto a tape. 
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t 


NAV& 

PURPCSc. 

SUERCUTINtS LEEC 
CCMMCN DUUCKS 
INPUT FILES 
OUTPUT FILES 
SCRATCH FILES 
RESTRICT IONS 
REFERENCES 


MAIN - OCDS SRTMTC ^ 

SORTS ANC MERGES T i<. O lNC*ut DAI A TAPES ONTO CNE TAPE 
fONSRT WRITE V • . 

OSORT UNITS 

j 

NONE 

NONE 

UNITS - 20#2l*22t23 

NONE 

NONE 


COMKON/QSCRT/NC *GiQS< M»2 5C}»OCMC 14*2 50 •21 

COMMON /UN ITS/Mt^ »NOUT » LNl T 

DOUBLE PRECISION OH • 08 I tL AST ( 4 ) • EOF 

INTEGER KN<2) .f^T(2 ) .UN IT( 2* 2) 

jNTEGtP. 

. LOGICAL*^ I FRSTlM.LSTPAS.RtV.ME RGE 

DATA FRST IM.LSTPAS. REV/*TRUE . 2" . FALSE./* 

• l*OU • lOH. INH/2‘i« 1 • 2/. 

». NSTRNG. EOF /I • 999599S9./ 

FLIP! 1 ) = MCD( I .2) +I 

C INITIALIZE INPUT. OUTPUT. AND SCRATCH UNITS 
MN=10 
NOUT=:ll 
K=19 

DO 5 1 =1 . 2 
DO 5 J = 1 .2 
K=K+l 

5 UNITd .J)=K 
C READ AND SCRT 250 RECORDS 
10 CALL RONSRT 

11=1 

IF(NO.EQ.O) GO TO 60 
IFIFRST INF GO TO 50 
C TEST ORDER OF STRINGS 
20 DO 30 1= 1 .A 

IF (LAS T ( n-oe ( I . I I ) ) 5C .30 .AC 
30 CONTINUE 

ir(Il.EQ.NO) CO TO 7C 
11=1 Ml 
CO TO 20 

C FLIP Tt» ALTERNATE SCRATCH UNIT 

40 iou=FL IP< inu) 

NSTRNG=NS1RNG ♦ I 


CODS 

22 

CODS 

23 

DODS 

2A 

DODS 

25 

DODS 

26 

nnf>s 

P7 

DODS 

26 

DODS 

29 

DODS 

30 

DODS 

31 

DODS 

32 

DODS 

33 

DODS 

34 

DODS 

35 

CODS 

36 

DODS 

37 

CODS 

36 

DODS 

39 

DODS 

AO 

DODS 

4 1 

DODS 

42 

DODS 

43 

DODS 

44 

DODS 

45 

DODS 

46 

CODS 

47 

CODS 

4B 

DODS 

49 

CODS 

50 

CODS 

51 

DODS 

52 

DODS 

S3 

DODS 

54 

DODS 

55 
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C SAVE LAST TI^-E POINT 
50 DO 00 1-1 ,4 
60 LAST! I > = CE( I , NC J 
•'sNO-l J ♦ 1 
IU = UNI T< ICU. lOH) 

C WRITE bLOCK CF RECORDS ON SCRATCH tN I T 

WRITE! XO J/. .( (Cb< I. J ) . I=U 14) , J = n .NO) 
FRST 1M=. F /LSF . 
c test if more strings 

TO 1P< NO • GE • 250 ) . GO TO 10 

60 M=0 

CU 90 Ks 1 ,2 
IU=UNIT( K , lOH » 

C WRITE EOF ANC REMIND 

WRITE! lU ))/, ( (EOF, 1 = 1, 14),J=1,M) 
ENDFILE IL 
REWIND lU 

C initialize SCRATCH UNITS 
IU=:UNIT(K ,INH) 

90 REWIND I U 

10H=INH 
INH«FL IP( INH) 

IOU = l 

LSTPAS=NSTRNG,LE*2 
PRINT lOlCtNSTRNG 
NSTRNG=l 
FRST IH-* TRUE • 

UU iuu Ksitkf 
1U=UNI T( K ,JNH) 

C READ NEW STR INC 

READtlU)F.((OQl(I,J,K) .1=1,14) ,J=1.M) 
NT(K) = M 
100 KN(K}=1 

FER6C=.FALSE. 

IF( NT( 1 M NT ( 2 ) .N£. 0 ) GO TO 200 

PRINT ICOO 

STOP 

200 IF(MERGE) go to 230 
C SET INDEX FOR FILE TO PROCESS 

IT=l 

00 210 1=1,4 

IF(OUl(I,M,I)-OBl(I,N2,2))2 30,2l0,220 

210 CONTINUE 
CO TO 305 
220 IT=2 
230 N=NN(1T) 

IF(FRSTiM) GO TO 205 
C TEST IF RECORDS IN TIME ORDER 
DO 240 1=1,4 

IFtODl ( 1 ,N, IT )-00( 1 ,N0 ) >25C *24 C.260 
240 CONTINUE 


j 


GO TO 305 

2S0 MERGt= •NCT•MERGE•A^<D»NT( 1 ),NE. C*AND»NT(2),Nt,0 
C FLIP INPUT SCRATCH UNIT INOICATOJ? 

1T=FLIP( IT) 

C TEST IF ALTCf*NATE TpCRATCM UTM T IS IN OFIDER 


OODS 

56 

OODS 

57 

DTDS 

50 

ODDS 

59 

CODS 

60 

DQDS 

61 

CODS 

62 

• DUOS 

63 

DODD 

64 

DQDS 

65 

• ODDS 

66 

ODDS 

67 

ODDS 

60 

DODS 

6 9 

CODS 

70 

CODS 

71 

DODS 

72 

DODS 

73 

DODS 

74 

DODS 

75 

DODS 

76 

DODS 

77 

DODS 

76 

COOS 

79 

DODS 

60 

DODS 

0 1 

CODS 

62 

uouS 

63 

CODS 

64 

OODS 

85 

DODS 

86 

OODS 

67 

COOS 

68 

DODS 

89 

DODS 

9C 

CODS 

91 

DODS 

92 

OODS 

9 3 

OODS 

94 

DODS 

95 

CODS 

96 

OODS 

97 

DODS 

90 

DODS 

99 

OODS 

100 

OODS 

101 

OODS 

102 

DODS 

103 

DODS 

104 

DODS 

ICS 

OODS 

106 

0005 

107 

COOS 

106 

coos 

109 

OODS 

1 1 0 

DODS 

1 1 1 
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IF<MhHGe.) GO TO 23'? 

GO TO 270 

C TEST IF nuff-GR IS full 
260 ir( NO . L T • 250 > GO TO 2-5C 
^ IF LAST STRING IS PROCESSED 

2^0 1F<LSTPASI GO TO 260 
lU = ONI T( ICU. ICMJ 
C WRITE OUTPUT EuFFCR 

WHITE! lUJNC . ( (00( I . J) . 1=1 ,iA) , j-2 
N0=0 


c Test if new cltput string 

IF(*NOT*REV) GO TO 290 
REV--.FALSE. 

C FLIP OUTPUT INCICATOR 
IOU=FLIP( ICU) 
hSTHNG^NS TRNG4 1 
FRST 1 Ms t TFUE . 


GO TO 200 

C WRITE OUTPUT STRING ON TAPE 
280 CALL WRI Tg( . false, ) 

28S NOsO 

290 K0*N0+1 

FRSTIMs.F^LSE, 

CO 300 Is J . 14 
C PUT RCCORO .IN eUFFER 
300 Ub{ I « NO )sLtil ( I , n, I T ) 

1H(NN( 1T> ,EQ.NT(IT) ) GO TO 310 
^N( I T)«NN (I T ) +l 
GO TO 2C0 


310 IU*UNIT{ IT.INH) 

C READ NEW HECCPO FROM SCRATCH UNIT 

READ! IU)I/ ,( (OCl ( I« J . IT ) . lai, 14 ), j-i 
KT( IT) sM 
^N( I TI si 


tM) 


1F(MERCE./N0.NT( IT) .EQ,0)G0 TO 250 
_ • IP ( NT ! 1 1 * NT ( 2 ) * NE . p ) GC TO 200 

IF(LSTPAS) GO TO 320 
lUsUNI T! ICU. ICH) 

C WRITE BUFFER CN SCRATCH UNIT 

WRITE! lUJNO.! COU(I.j),i = i,i4,, 

• GO TO GO 
C WRITE OUTPUT TAPE 
320 CALL V.RI TE( .false. ) 

CALL WRITE (.TRUE.) 

1000 format !»INO SOF^T INPUT*) 

1010 FORMAT!* *,IB,» STRINGS*) 

STOP 

END 


/ 

J 



OODS M2 
OOOS 1 1 3 
OOC S 1 I A 
OODS 115 
‘ COOS 1 16 
OODS I 1 7 
OOOS 1 IB 

oors 1 19 

OOOS 120 
CODS 121 
OODS 122 
OODS 123 
COOS 124 
COOS 125 
OODS 126 
OODS 127 
OODS 12G 
OOOS 129 
OODS 1 30 
OODS 13) 
OODS 132 
OODS 133 
OOOS 134 
OOOS 135 
OOOS 136 
OODS 137 
OOOS 13A 
OOOS 139 
0005 140 
OOOS 141 
OOOS 142 
OODS 143 
OODS 144 
DOOS 145 
OOOS 146 
OODS 147 
OOOS 148 
DOOS 149 
OOOS 150 
OODS 151 
DOOS 152 
OODS 153 
DOOS 154 
DOOS 155 
DOOS 156 
DOOS 157 
OOOS 158 
OODS 159 
OOOS 160 
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DODS RDNSRT 

l 


DESCRIPTION 

"RDNSRT reads a DODS data tape, sorting each 
record until a block o£ 250 records is filled and 
checking the satellite identification number. If 
the satellite identification numbers are not the same, 
a new record is read. When either a block of 250 is 
reached or the end of the tape is reached, control is 
returned to SRTMRG. 
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kamu 

PUBPCSii 

CALLING SLCUEKCE 
SUdRCUTiNtS L£ED 
cckmdn blocks 

INPUT FILE 
OUTPUT FILES 

restrictions 

references 


OOOS PONSRT f 

Reads anc sorts esc records into core 

CALL RDNSRT 
NONE 

OSORT UNITS •> 

OODS INPUT TAPE 
NONE 

TAPE MUST BE IN CODS FORMAT 
NONE 


SUBROUTINE RONSRT 
C0MM0N/0SCRT/N,C«0B(14 .350) 

COMMON /UN ITS/NI N .NOUT t SCR (4 J 
COUBLE PBECISION OB. SAVE, d 
lNTECER+2 ID(4) 

EQUIVALENCE (C.ID) 

N*0 

10 N»N* I 
C READ A RECOHC 

IS f^EADl-NlN ,CRR= ICO ,END=aC (Oet 2, N ) ,OB( 3 , N) , ( OB ( I,N) , 1 = 5,6) 
• <0B(I,M.I=9,J4) 

IFIOBC 2, N ) ,LT*0, ) GO TC 15 
CB( i ,N ) = ISaT 10 
D=OD( 1 3,N ; 

CB<4,N)»IC(3) 

C.TF FIRST REAC, GO READ ANOTHER 
*20 IF(N,LT*i) GO TO IC 
DO 30 J1=2,N 
J=N<-2“Jl 

C CHECK TIKE ORCER OF RECORDS AND SATELLITE ID NUMBER 
CO 25 K= 1 ,4 

IF( 00 < K,N J-OB (K, J- 1 )) 30,2 5,4 0 

25 CONTINUE 

60 TO IS 
30 CONTINUE 

J=1 

40 1F(U.EQ*M go TO 70 

JI=N“U 

C arrange RECORCS in ORDER 
DO 60 K= 1 , 14 
SAVt>0 0(K,N) 

CO 60 MI = I , J I 
PcN-Ml 

SO 0B(K,M*1 >sOO(K,M) 


ISATID, 


RDNS 

22 

RONS 

23 

RDNS 

24 

RONS 

25 

RDNS 

26 

RDNS 

27 

RDNS 

2S 

RDNS 

29 

RDNS 

30 

RDNS 

31 

RONS 

32 

RONS 

33 

RONS 

34 

RDNS 

35 

RDNS 

36 

RDNS 

37 

RDNS 

38 

RDNS 

39 

RONS 

40 

RONS 

41 

RDNS 

42 

RDNS 

43 

RDNS 

44 

RONS 

45 

RONS 

46 

RONS 

47 

RDNS 

40 

RONS 

49 

RDNS 

50 

RDNS 

51 

RONS 

52 

RDNS 

53 

RDNS 

54 

RONS 

55 
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60 

70 

C IF 

eo 

too 
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CO(Kt J )= S»V5 
IF(N*LT. <t0) GO TO 10 
AMKAY IS PLLUt RETURN 
RETURN ^ 

R=N-1 

return 

READ! N IN . ^RR= ICC »END=a C ) 

€0 TO 15 
END 


RONS 56 
RONS 57 
. r.DNS 56 
RONS 59 
RDN5 60 
PONS 6 1 
RONS 62 
RONS 63 
RDNS 64 
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/ 


DESCRIPTION . . 

The subroutine WRITE is the output routine of ' 
the program. If WRITE is called with a false logical 
argument, it will write out a block of data records on 
the output tape. If the satellite identification number 
changes, it will write out a flagged record with the 
new identification number. If WRITE is called with a 
true logical argument,' it will write an endfile on 
the output tape , A f low'chart would be superfluous . 
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Pago 2 of 2 
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REPRODUCIBILITy OF THE 
ORIGINAL PAGE IS POOR 


KAf'E 

PUKPCSe 

CALLING SE.QUENCE 
SYMBOL TYPE 
ENDSM L 
SUERCUTiNtS LSEO 
CCMHCN BLOCKS 
INPUT FILES 
OUTPUT FILE 
RESTRICTIONS 
REFERENCES 


0005 WRITE 

WRITES DATA RECOTOS ANO 
CALL WRITE(ENDSW) 

OESCR IPT ION 

TRUE WILL ENOFILE WHEN 
NONE 

OSORT UNITS 

NONE 

MAGNETIC TAPE 

NONE 

NONE 


* / 

L^NOriLLS TAPES 


TAPE IS completely 


WRITTEN 


C IF 


C IF 
10 

20 


SUOROUTINE WRITEIENDSW) 

COMMON/OSCRT/NT<C.OQ( 1 4, 2 SC) 

00UI3LE PftECISJnN 00 
COMMON/UN ITS/MN# NOUT , SCR (4 ) 

INTEGER 2eR0/C/, JSATID/-1/ 

REAL*p FL4G/-liD0/ 

LOGICAL ENDSW 

REQUeSTEO. ENOFILE TAPE ONLY 
IF(ENDSW) GO TO 20 
CO 10 N=1,NT 
ISATIO = Oe (1 ,N)»-.5 

1F< I SATID.NE.JSATID )WR ITE (NOU T )FL AG , ( 2ER0. 1 =l .10) ,I SATID, 

• (ZERO. 1=1. 12) 
JSATID=1SAT1D 

SATELLITE ]0 NUMOERS ARE THE SAFE, WRITE OUT THE RECORD 

WRITE! NOLT )00 (2 , N) , 03{ 3, N ) , ( 00 ( I , N) , I = ) , I sat ID , 

• (0E( I .N J , 1=5, 1 4) 

RETURN 

ENOFILE NCUT 
REWIND NCLT 
RETURN 
END 


WRIT 

■ Z6 

WRIT 

27 

WRIT 

20 

WRIT 

2P 

WRIT 

3C 

WRIT 

SI 

WRIT 

32 

WRIT 

33 

WRIT 

34 

WRIT 

35 

WRIT 

36 

WRIT 

37 

WRIT 

38 

WRIT 

39 

WRIT 

40 

WRIT 

4 1 

WRIT 

42 

WRIT 

43 

WRIT 

44 

WRIT 

45 

WHIT 

46 

WRIT 

47 
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1.2,2 GEOS SORT-MERGE 


INTRODUCTION 

The GEOS SORT-MERGE program so;^t^ data from GEOS 
format data tapes into chronological/ station, and then 
measurement type order, eliminating duplicate data records 
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MAIN-GEOS SRTMRG 


DESCRIPTION 

The main program SRTMRG sorts and merges blocks o£ 
250 sorted records which are obtained from the subroutine 
RDNSRT. The blocks are sorted onto two scratch disk units 
which are then merged and sorted again onto two alternate 
scratch disk units. The process is repeated until all the 
records are in chronological order. This program does not 
sort by satellite identification number. Then the sub- 
routine WRITE is called to write out the data records onto 
a tape. 
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MAIN - GETS SKTwnG 

/ 

SORTS ANC MtrtGflS Tt'fJ INPUT DATA TAPLS ONTO ONE TAPE 


SUERCUTINES USED 

RDNSR T 

WRITE 

CCI'MCN BLOCKS 

OSORT 

UMTS 

INPUT FILES 

NONE 


OUTPUT FILES 

NONE 


SCRATCH FILES 

UNITS - 

20. 21 .22 

RESTRICTIONS 

NONE 


references 

NONE 



name 

PUfiPOSc 


COMMON/OSGftT/SO • 00 ( I 9 • 250 ) « OB 1 ( I 9 i 2 50 » 2 ) 
COMMON/UN 17 S/NIN I NO UT . UNIT 

INTEGER CE»O01»NN(2)*NT(2)»tAS7(6)tUNIT{2.2> ,EOF 
INTEGER FLIP 

EOJI VALEN CE ( N1 »NN( 1 ) ) , ( N2, NN( 2t ) 

Loo iCAL^l rftSI iM«Lb IH#\la*KtV*MtiKGb 
DATA FRSTIP.LSTPAS* REV/. TRUE# , 2«.i-ALSE*/i 
• lOU* lOH, INH/2* 1 ,2/. 

« NSTFNG.LOF/l .59999995/ 

FLIP(| } = PCD( I .21-fl 

C INITIALIZE INPUT. OUTPUT. AND SCRATCH UNITS 
NlN'iO 
NOUT=l 1 
2 K=19 

00 5 1=1 • 2 
00 5 J=I *2 
K=K+1 
REWIND K 
5 ONirU.Jl=K 
REWIND NIN 

C READ ANO SORT 250 RECORDS 
• 10 CALL RDNSFT 

JJ=1 

1F(NC#EQ.C) GC TO 80 
iFIFRSTIf^ ) GO TO 50 
C TEST ORDER OF STRINGS 
20 CO 30 1=1.3 

IF<LAS7 ( I }-0C( I . I 1) )50 .30.40 
30 CONTINUE 

1F< 1 1 .tO.NOI GO TO 70 

n = i 14 i 

CO TO 20 

C FLIP TO ALTERNATE SCRATCH UNIT 
40 IOU = FLlP( lOUJ 


CEOS 

22 

GEOS 

23 

CEOS 

24 

GEOS 

2S 

CEOS 

26 

OcOS 

^ / 

CEOS 

26 

GEOS 

29 

CEOS 

30 

CEOS 

31 

GEOS 

32 

CEOS 

33 

GEOS 

34 

GEOS 

35 

CEOS 

36 

GbOS 

37 

CEOS 

38 

GEOS 

39 

CEOS 

40 

CEOS 

41 

GEOS 

42 

CEOS 

43 

CEOS 

44 

CEOS 

45 

CEOS 

46 

GEOS 

47 

CEOS 

46 

CEOS 

49 

CEOS 

50 

CEOS 

51 

GEOS 

52 

COOS 

53 

COOS 

54 

GEOS 

55 
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KSTRNGsNS 1RNG4 I 

CEOS 

56 

so 

DO 60 1= 1 i 3 - 

GPQS 

57 

C SAVC 

LAST T INC POINT * 

GEOS 

59 

60 

LAST! I I = Ct( I tNO ) ^ 

■ GEOS 

59 


«=NO-I 14 1 

GEOS 

6C 


|U=UNl T{ ICU. ICH) 

• CEOS 

61 

C WRlTCi BLOCK CF KeCu'f^DS ON SCRATCH LN I T 

’ GEOS 

62 


».RITE(lU)»',((CB<I.J).I=l»l5)*J = n.N';) 

CEOS 

63 


FRST1M=*FALSE. 

CEOS 

64 

C TEST 

IF MORE STRINGS t 

CEOS 

65 

70 

IF(N0.Gc«i50) GO TO 10 

Geos 

66 

60 

M=0 

GEOS 

67 


CO 90 1 #2 

CEOS 

6 9 


IU=UNIT(K,TOH) 

GEOS 

69 

C WRITE EOF AND RChlNO 

CEOS 

7C 


WRITE! lUlf>,( (EOF. 1=1, 19). J=1,M) 

CEOS 

7 1 


ENDFiLE IL 

. CEOS 

72 


REWIND lU 

ceos 

73 

C IMTIAL1?.£ SCRATCH UNITS 

ceos 

74 


1U=UNIT(K ,INH) 

GEOS 

75 

90 

REWIND lU 

ceos 

T6 


10H=INH 

GEOS 

77 


iNHaFLlP! INH) 

GEOS 

78 ' 


I0U»1 

GEOS 

79 


LSTPASaNSiRNG .LE.2 

GEOS 

89 


PRINT 777,NSTRNG 

CEOS 

81 

777 

FORMAT!* 4 ** NUMBER OF ST R I NGS = » . I 4 ) 

CEOS 

62 


NSTRNGsj. 

GEOS 

03 


FRSTlMs. THUE* 

GEOS 

04 


00 100 KsU2 . 

GEOS 

85 


lUaUI^UTIK.lNH) 

GEOS 

86 

C RE AO 

I NEW STRING 

CEOS 

67 


READ! i U ))v , ( ( Oei ( I « J«K) • 1= 1, 19) , J=1 • M) 

GEOS 

CF 


NT!K)«M 

Geos 

09 

too 

KN(K)=1 

GEOS 

90 


PERCE= .FALSE* 

CEOS 

91 


IF(NT( 1 )+NT(2).NE.O ) GO TO 200 

CEOS 

92 

• 

PRINT lOOC 

ceos 

9 3 


STOP 

CEOS 

94 

200 

IF(MERGE) GO TO 230 

GEOS 

95 

C SET 

INDEX FOR FILE TO PROCESS 

GEOS 

96 


1T=1 

GEOS 

97 


DO 210 1=1*3 

CEOS 

96 


IFCOfil ( I .M . I >“0B1 { 1 .N2.2 ) )230 .21 0.220 

GEOS 

99 

210 

CONTINUE 

CEOS 

100 


CO TO 305 

GEOS 

101 

220 

IT = 2 

CEOS 

102 

230 

N=NN( IT) 

CEOS 

103 


IF(FRSTIH) GO TO 205 

CEOS 

104 

C TEST 

IF RECORCS IN TIME ORDER 

CEOS 

105 


DO 2AC 1=1.3 

ceus 

106 


IF(ODl(I.N.IT)~OG(I.N0)»250,240.26J 

CEOS 

107 

240 

CONTINUE 

ceos 

108 


CO TO 305 • 

CEOS 

109 

250 

MERGE- .NO T .MERGE .AND. NT ( 1 ) .NE . O.AND.NT ( 2 1 . NE.O 

CEOS 

1 1 0 

C FLIP INPUT SCRATCH UNIT INDICATOR 

CEOS 

1 1 1 
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CEOS 

1 12 

C TEST JF ALTcFhATc SCRATCH UNIT IS 

IN 

OROLR ^ 

GEOS 

1 13 

JF(Mcl<Gc.J GO TO 230 


j CEOS 

1 lA 

ft£V=tTRUE • 


J 

GEOS 

1 15 

GO TO 270 



GEOS 

1 16 

C TEST IF DUFF EH IS FULL 



• -CEOS 

117 

260 JF( NO *LT . 2bC ) GO TO 29C 



GEOS 

1 10 

C TEST IF LAST STRING IS PROCESSED 



. GEOS 

1 19 

270 IF(LSTPAS) GO TO 26C 



CEOS 

120 

lU^UNI T( ICU. ICH) 


i 

GEOS 

121 

C WRITE OUT>^ur EUFFGR 



GEOS 

122 

WRITE! lUINC . ( (03( 1 . J) . 1=1 , 19) ♦ 

J= 

l.NO) 

CEOS 

123 

K0 = 0 



GEOS 

12A 

C TEST IF NEW OUTPUT STRING 



GEOS 

125 

lF(*NDT.ReV) GO TO 2S0 



GEOS 

126 

REV=:.F ALSE . 



GEOS 

127 

C FLIP OUTPUT INDICATOR 



• GEOS 

120 

lOUsFL IP ( lOU ) 



GEOS 

129 

T*STRNG = NSTRNG*1 



GEOS 

130 

FRST TRUE. 


• 

GEOS 

131 

GO TO 200 



GEOS 

132 

C WRITE OUTPUT STRING UN TAPE 



GEOS 

133 

260 CALL WRI T£ ! <FALSE. } 



CEOS 

134 

285 K0=0 



CEOS 

135 

290 NOsNOFl 


. 

GEOS 

136 

FRST IMS, F ALSE. 



GEOS 

1 37 

C PUT RECORD IN DUFFER 


. 

GEOS 

136 

DO 300 1-1*19 



GEOS 

1 39 

300 OB( 1 «N0 ) =CCl ( 1 *N« IT } 


( 

GEOS 

140 

305 1F(NN( IT J *EQ*NT( IT ) J GO TO 310 



GEOS 

141 

NNU.T)=NNnT)Fl 



GEOS 

IA2 

CO TO 200 



GEOS 

143 

310 iU=UNI 7(11, INH) 



GEOS 

144 

C READ NEW RECOno FROM SCRATCH UNIT 



GEOS 

145 

READ( I UH/ ,(( OBI ( I , J * I T ) . I = i . 1 9 1 , 

J=l,M) 

GEOS 

146 

NT( ITl^M 



GEOS 

147 

NN( IT)=1 



GEOS 

140 

IFIKEKGE * /NO * NT ( IT ) .HO .0 ) GO TC 

250 

GEOS 

149 

IF(NT( 1 ) +NT{ 2 ) .NE.C ) GC TO 200 



GEOS 

1 50 

IF<LSTf*ASJ GO TO 320 



GEOS 

151 

IU=UNI T( ICU, ICH) 



GEOS 

152 

c WRITE BUFFER CN SCRATCH UNIT 



GEOS 

153 

WRITE! lU INO* ( (OD( I * U) ■ 1 = 1 ,19 ) • 

J= 

l.NO) 

GEOS 

1 54 

GO TO 60 



CEOS 

155 

C WRitE OUTPUT TAPE 



GEOS 

1 56 

320 CALL WRI 7£< ,r ALS6* 1 



GEOS 

157 

CALL WRI T£( .TRUE. > 



GEOS 

158 

1000 FORMAT!' INO SORT INPUT*) 



GEOS 

159 

STOP 



GEOS 

160 

END 



CEOS 

161 
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JMtTIALX' 


FLIT TO 
AtTrANrvTcS 
sazmcii uMir 


G'ET rx SISXM 


OF 5oars\> 


Recoil os 


FIRST Tseno 




10 

V y 


SRWU 

txhe 

Lh&T 

?OtNT 



to rate 

0? A^cc 
5CR£\rc.» 

BtOtii 
;flD5' ON 

O^UT 


JH 
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DESCRIPTION 

RDNSRT reads a GEOS data tape, sorting each . 
-record into a block of 250 records. When either 
a block is full or the end of the tape is reached, 
control is returned to SRTMRG. 
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NAMc 

PUftPOSc 

calling SecuUNCE 

SUGROUTINES LEED 
CCMMCN BLOCKS 
INPUT FILE 
OUTPUT files 

restrict ions 
REFERENCES' 


GEOS RDNSRT 
TO READ AND SORT 
CALL RDNSRT 


25C RF.CORO;i INTO CORE 


NONE 

OSORT UNITS 

i 

CEOS INPUT TAPE 
NONE 


TAPE MUST BE IN CEOS FORMAT 
the same SATELLITE 


AND CONTAIN DATA FROM 


NONE 


subroutine RONSRT 
C0HM0N/0SCRT/N,03( 19,250) 
COMKON/UMTS/NIN,NOUT , SCR (A ) 
INTEGER CEsSAVE 


C READ A RECORD 

»s 10000^0=80. = 

O0(3.N)=-ISTAN0*l00 + MTYPE*Kf^ * 0 ti ( 2 i N J , t OB ( I , ^ 

C IF FIRST READ, GO READ ANOTHER 
20 IF(N*LT*<) GO TO 10 

00 30 J1=:2,N 
JsN<2-UI 

C CHECK TIME ORDER OF RECORDS 
DO 2S K= 1 ,3 

1F(0B( K, N)~OB(K,J-l ) )30«2^'»A0 
2S CONTINUE 


10, 00(6. N) 

»I=C,15) 


CO TO 15 
30 CONTINUE 


40 IF(J*E0.M go TO 70 

Jt=N-J 

C ARRANGE RECDfiCS IN ORDER 
CO 60 K=1 ,10 
SAVc = OB ( K ,N ) 

CO 50 Ml = I , j 1 
F=N-M1 

50 00(K,M+| ) = 0D(K,«) 

60 CO ( K , j ) = s/ vE 

70 IF ( fx' *L T • 2 SO ) CO TO 10 

C IF ARRAY IS FULL, RETURN 
RETURN 


RONS 23 
RONS 24 
RONS 25 
RONS 26 
RONS 27 
RONS 20 
RONS 29 


RONS 

30 

RONS 

31 

RONS 

32 

RONS 

33 

RONS 

34 

Rons 

35 

RONS 

36 

KDNS 

37 

RONS 

38 

Rons 

39 

RONS 

40 

RONS 

41 

RONS 

42 

RONS 

43 

RONS 

44 

RONS 

45 

RONS 

46 

RONS 

47 

RONS 

40 

RONS 

49 

RONS 

50 

RONS 

51 

RONS 

52 

RONS 

53 

RONS 

54 

RONS 

55 
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80 NsiN-1 

fieruRN 

100 0 0 FU»^MAT <A-^.A2i 2M .A<*,Al .I5i2I3. 11A4,A2» J 
tHO 


RONS 56 
RONS 57 
RONS 5^ 
RONS 59 
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GEOS WRITE 


DESCRIPTION 

The subroutine WRITE is the output routine o-f 
the program. If WRITE is called with a false logical 
argument it will write out a block of data records on 
the output tape. If it is called with a true logical 
argument, it will write an endfilc on the output tape, 
A flowchart w^ould be superfluous. 
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NAME 

PURl^CSE 

CALLING SEOULNCE 
symdol type 

EKOSW L 
SUCRCUTlNtS LSED 
CC»/KCN CLOCKS 
INPUT FILES 
OUTPUT FILE 
RESTRICTIONS 
REFERENCES 


CEOS Y/RITE 

WRITES DATA RECORDS AND 
CALL WRITE! tNCSW ) 

DESCR IPT ICN 

TRUE will ENOFILE WHEN 
NONE 

OSORT UNITS 

NONE 

MAGNETIC TAPE 

NONE 

NONE 


/ 

LNDFILuS tapes 


TAPE IS COMPLETELY 


WRITTEN 


SUDROUTJSe WRITE(ENDSW) 

COMMON/LlSCRr/NT.Or;f( 1 9* P.SO I 
INTEGER Ct 

COMMON/UMTS/NIN.NOUr, SCR (A ) 

LOGICAL CN05W 

C IF REOUESTCO, ENCFILE TAPE ONLY 
IF(ENbSW> GO TO 20 
DO 12 N>1»NT 
ISTANO=D£(3,N)/10C 
1TEMP=0E U'.N)-ISTAN0*IC0 
MTYPE= ITE^P/ 1 0 
ID-9~( ITevP-MTYPEAIO) 

C WRITE OUT THE RECCRO 

10 WRITE(NOLT,lCCC0)0B(4.N)tO3(5.N),MTYPE, IO,OB(6.N) ,0D(7,NI* 

• iSTANO.OC( l.N),0b(2.N)»(0J( I.N>»I=0.19) 

12 CONTINUE 
RETURN 

20 ENOFILE NCUT 

REvaND NCLT 
RETURN 

10000 FCRMAT(AA*A2.21l,A4*Al , 15 ,21 6. 11AA.A2) 

END 


WRIT 26 
WRIT 27 
WRIT 28 
WRIT 29 
WRIT 30 
WRIT 31 
WRIT 32 
WHIT 33 
WRIT 3A 
WRIT 35 
WRIT 36 
WRIT 37 
WRIT 36 
WRIT 39 
WRIT 40 
WRIT 41 
WRIT 42 
WRIT 43 
WRIT 44 
WRIT 45 
WRIT 4G 
WRIT 47 
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1.2.3 EPIIEMEIUS TAPE GENERATOR 

INTRODUCTION • ■ 

The ephemeris tape contains the /following ephemerides : 

J 

o geocentric lunar positions at half day 
intervals 

* ■ • 

0 heliocentric positions of the earth-moon 
harycenter at 4-day intervals 

e heliocentric positions of the planets, 

Venus, Mars, Jupiter and Saturn at 4- day 
intervals 

» nutation in obliquity at half day intervals 

The ephemerides are obtained by precessing and nutating 
to true of date coordinates the values found on the jPL plane- 
tary ephemeris tape. 
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PROCIUM MATllJiMATICS. 


The positions of the Eartli-moon barycenter and the 
planets are heliocentric on the JPb ^pe; however, the moon 
is geocentric. Subroutine READE uses Everett*s 5th order 
interpolation formula which is written as follows: 

y(tj+sh) s PCs) = yjF^ci-s)+djF2(i-s) 

+ dh^Ci-s) 

" dJ,^P4(s) 

where 

= s' 

^ 2 ^®) = [(s-1) (s) Cs+l)]/6 

1 ^ 4 ( 5 ) = [(s- 2 ) (s- 1 ) (s) Cs + 1 ) (s + 2)]/120 
,2 ,4 

second and fourth modified central dif- 
ferences contained on the JPL tape. 

i ^ > • - • denotes successive tabular values of 
one of the quantities contained in the ephemeris. 

tj denotes the corresponding time points, 

h = 

t-t. 

s » t is time at which information is requested. 
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All the coordinates are converted to geocentric 
positions and placed in' common. The MAIN program, by calling 
subroutine EQUATR, processes and-nutates the coordinate system 
from Mean of 1950 to True of Date. The planets are recon- 
verted by MAIN to heliocentric positions, while the moon re- 
mains geocertric. The sun is converted to Earth-moon bary- 
centered positions. The second and fourth modified central 
differences are then recomputed. These differences and the 
positions are written on the tape. 


The modified second and fourth differences for Everett 
interpolation are computed as follows: 


d' 


" ^ 26 . " "28 


^ "46 "48 


where 


- -0.013120 


^28 0 - 00^299 


.a., = -0.278269 

40 


a^g = 0.068489 


and the ordinary central differences are defined 


^0 


0 


= y 


1 


^j+0.5 




. ;^1 A 

■ ®j + 0.5"'^j-0.5 


A 

^j+0.5 


6 ^ ,-62 
1 + 1 1 


etc. 
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CALLED ROUTINES 


SUOROUTINE CROSS REFERENCE CHART 


CALLING lioUTlNES 


j 



2 

< 

DATES 

DIFF 

DJUL 

EQUATR 

MATRIX 

NUTATE 

PRECES 

READE 

>• • 
< 

Q 

5 

> 

ADDYMD 

■ 


■ 

■ 


■ 

■ 


■ 

■ 

CLEAR 



■ 

■ 


■ 

■ 


■ 

■ 

DATES 

0 



■ 


■ 

■ 

■ 

■ 

■ 

DIFF 

■ 



■ 



■ 


■ 

Q| 

EQN 

■ 






o 

■ 



EQUATR 

o 


■ 

■ 


■ 

■ 

n 

■ 

imi 

GETTAP 

■ 


■ 

■ 


■ 

■ 

■ 

o 

■ 

MULMAT 

■ 


■ 

■ 



o 

o 



NUTATE 

■ 



■ 

O 

© 



■ 

■ 

PRECES 

■ 



■ 

0 

■ 

■ 


■ 

■ 

READE 

0 



■ 



■ 

■ 

■ 

■ 

ROTMAT 

■ 

■ 

■ 

■ 

■ 


o 

o 

■ 

■ 

RYMDI 

■ 

■ 

o 

■ 

■ 


■ 

■ 

■ 


YMDAY 

o 

■ 


o 

■ 

■ 

o 

G 

■ 
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COMMON BLOCKS 


/>■ / 


COMMON BLOCK CROSS RE.rERENCE 


ROUTirJES 



NIViAJ 

GETTAP 

READE 

CETBL1 

m 


m 

CETBL2 

Q 

0 

o 

CETBL3 

O 

o 

o 

CETBL4 

O 


o 

CETSL5 


m 

o 

CETBL9 


Q 

G 

REC1 


o 


REC2 


© 


TAPE 

Q 

o 



1 * 2^3 




























MAIN-r-PlIHM 
Page 1 of S 
30 September 1972 

MAIN-HPilEM 


/ 


DESCRIPTION 

The MAIN program, EPHEM, reads the JPL ephemeris tape 
for positions of the Earth-moon barycenter, the planets and 
the moon. All the coordinates are converted to geocentric 
positions and placed in common. MAIN, by calling subroutine 
EQUATR, precesses and nutates the . coordinate systems from 
Mean of 1950 to True of Date. The planets are reconverted 
by MAIN to heliocentric positions while the moon remains 
geocentric. The sun is converted to Earth-moon bary-centered 
positions. The second and fourth modified central differences 
are then recomputed. These differences and tlie positions are 
written on the tape. 
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EPIinM 

page 2 OX 5 
30 September 1972 


NAM?: MAIN - EPHS-M ‘ 

/ 

PUPPOSL GHNSRATTS HzLIOCFMTPIC POSITIPN? OF VFNUS*MARS» 

J'JPI TFR » SATURN ANO TH? fAyTH-MOON nAOYCFNTpP, 
CHOCFNTRIC LUNAR POSITIONS AND NUTATIONS IN 
P3LI0UITY 


SU3ROUTINFS USED 

CLEAR 

ymday 

OATES 

eouatr 

• PEADF 

TDIF 

COMMON BLOCKS 

CETQLl 

CETBL2 

CE7BL3 

CETEL4 

TAPE 


INPUT FILES 
OUTPUT FILES 


5 - READER 

6 - PRINTER 


references J»L development r PHEM zRI S lNO« 19 

technical REc^ORT 32-llAl - C.J. PF.VlNE 
. .JPLi CALIF. INST. Q~ THCH,. PAS ADENA , CA L I F , 
NOV. 15*1967 


PEAL* 3 J01.0J.SEC1.0rLJPOELSECtAU*RFW,TP0,EMRAT 

iTASOUT 

OEPH 

25 

ST02* CUN iNUT .N'lJTATr * J50 . T £= C , SOL A R£ ^ , S 1 , « 0 ) , » AS E 

,DJF.''5£, 

OFPH 

2^^ 

2 our l(3t?*i7;iu U” ?(3i3»3*5) •“ OUT *E*TAC3* OSjE " 1 * C 3 J 

ni*rr.» 

' CEPK 

2^ 

30A VEND, DAY, ymday, A< A ) ,0 6 .Dfl 


OEPH 

2E 

EOUl valence. {DUFM( 1 ) ,£JUFH 1 *1,1)}, (BjF3C 1 *1 i 1 * 1 ) * 

0UFP( 1 ) ) 

OF.PH 

29 

REALMS factor 


OEPH 

30 

DATA FAC TOR /I .215037301 64520-02/ 


OEPH 

31 

DOUBLE PRECISION TimF.S(6) 


OFPH 

32 

DATA ITIME/I/ 


OfPH 

33 

COMMON/TAPE/IN 


OEPH 

34 

COMMON/CET.BL 1 /AU , REM , TPO ,E WRAT 


OFRH 

35 

COMMQN/CSTOL 2/ICw,NC.ENTR,lRrO(13) 


OEPH 

36 

COMMON/CETBL 3/TA03( B29) ,NUTAT{20<) ,CKSU« 


OEPH 

37 

COMMON/CE TOLA/ SUN ( 6 , 12) ,NUT( 4 ) 


OEPH 

36 

DATA NCO/6/ 


OEPH 

3® 

INTEGER lE0(10)/n,10.2,4,5,6,7,J3,9,l/ 


OEPH 

40 

REAL NUTAT 


OEPH 

41 

LOGICAL TTn 


OEPH 

42 

DIMEN.SION NUTATE! e3 1 ) , BUF 2 ( 3 , 1 7 ) 


OFPH 

43 

Integer recoro/o/ 


OEPH 

4A 

INTEGER OUT/J 0/, 1 Y/50/ 


OFPH 

45 

DATA NODDY, NPTS/ 1 0 , 1 6/ 


OEPH 

46 

DATA A/-1 .3l2D-2.4.2QSD-3,-2.7P2 69D-I ,6..F4S9 0-2/ 


OEPH 

47 

DATA J01,StCl . DELJO, PEL SEC/2A37 600.500,0. 000.0. 500, 0.0 00/ 

OFPH 

AB 

DATA DJnASE,OAYE^4O/243323l.5O0.24A07A6,^C^0/ 


OEPH 

4P 

data T IN/.F al SE . / 


OEPH 

50 

E(X>=((.l'?0n-?,TD-21«-X-'.0216A10“l£>*X-6.21 795 9 0-9 ) 

*X» .4093197600 

OEPH 

51 

READ 1003,TIMct<; 


OEPH 

52 

JD1=T l‘»r S( I TIME J 


OEPH 

53 

DAYrNO-= T IM£ s( I T IME+ 1 ) 


OEPH 

54 

IN=12 


OEPH 

55 
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Page 3 of 5 
30 September 1972 


icw=i 

NC^NT«=3 

AUr I , lis’r^CTT.r, 1 I / 

RFvr6T7(!lA9.5D0 

TPe=s.t’.'iD<h 

TSFC=0 

EMPAT = M . 30?O0 

CALL CL*:AP( T -^FQ . i 3. 1 > 

OO 605 I=1»NEQ 

n = ieQ<i) s 

605 IPE0( I I ) = l 

IRE0{13>sl 

CALL Pr ADF( JDl , TSEC . IFRR) 

J0l=TA'^3(n 

•JED^JDl 

C DAYS IVOO.O 

Jbl = JDl-24 I 5020. ODD 
DJ=JEO+1A,00 
C J950.0 

. QASE = YMr>AY( 5001 00,0 , 0. ) 

DOUT-BA5E+JFD-D jeASE 
c SET UP array first time 

DO 606 1=1, 8i 

CALL REA0E( JED.TScC, lERR) 

C PPECeSS AND NUTATE 

CALL E0UATR( SUn , BASF, T I N, solar? (1,1,1) ,mUT , .TPUH. « I fO, NEO) 
c subtract VFCTn.R TO SUN FROM PLANETS 
DO 900 J*3?NE0 
DO 900 L = ,l » 1 

900 S0LAR5(L, I , J )=SaLARC( Lf I . J )“SrLARF(L . I , 2 ) 

C SUBTRACT EARTH-MOON BARYCENTER FpQM VECTOR TO SUN 
00 FIO Js I , 3 

SnLAR5( J, I , 2 ) = S0LAR*5( J, I . 2 ) - F AC TOR * SOL AP5 ( J . 1*1) 

610 continue 

NUTATE! 1 )=DCOS( E< JDl )+NUT( 2 ) ) *NUT( 1 ) 

DOUTsDOUTfOEL JO 
JD1=JDI+DFLJ0 
JED=JEe+0£L JO 

606 CONTINUE 
GO TO 610 

C READ ONE RECORD 
620 CONTINUE 

OO 621 1=66,31 

CALL REAOE( JFD, TSEC , lERR ) 

C PPECESS AND NUTATE 

CALL EOUATP ( SUn , BA S E . T 1 N , SOL A f^5 ( 1 ♦ I , 1 ) , DOUT , .TRUE. . I EQ* NEO > 
C SUOTPACT VECTOR TO SUN FROM PLANETS 
00 eoo J=3,NEO 
DO eoo L= 1 » 3 

POO S0LAR5(L , I . J)=SDLAQ5(L. I , J ) - SOU APR ( L . I .? ) 

C SU3TRACT EARTH-MOON 3ARYCENTER FROM. VECTOR TO SUN 
DO 910 J = 1 . 3 

SOLARS! J , I . ? ) =SOL ( J* I , 2 ) -F AC TOR* SOI. Apf ( j * I , j ) 

91 0 CONTINUE 

NUTATE < I ) -DCOS( F ( JD 1 J +NUT( 2) ) *MIJT{ J > 

OOUT = DOUT + L>EL JO 


OEPK 

5* 

OEPH 

A7 

OEPM 

53 

OEPw 

5 9 

OFPH 

eo 

OEPH 

'"i 


62 

OFPH 

53 

OFPH 

6* 

OEPH 

65 

0«=’pM 

66 

OFOh 

67 

OFPH 

6« 

OEPH 

6 9 

OEPH 

70 

OF.PH 

71 

OEPH 

72 

OEPH 

73 

OEPH 

7 A 

OEPH 

75 

OEPH 

75 

0£PH 

7"» 

0*^PH 

73 

OFPH 

79 

OFPH 

PO 

OEPH 

31 

OF.PH 

32 

OFdh 

R3 

OEPH 

6A 

OFPH 

S5 

or.PH 

86 

OEPH 

P*» 

OEPH 

PA 

OFPH 

, 

oeph 

oo 

OFPH 

91 

OEPH 

92 

OFPH 

93 

OFPH 

9A 

OEPH 

95 

OEPH 

96 

OFPH 

RT 

OEPH 

93 

OFPH 

99 

OEPH 

100 

OFPH 

1 01 

OEPH 

1 02 

OFPH 

103 

OEPH 

1 06 

OFPH 

105 

OFPH 

1 06 

OE*^H 

107 

OEPH 

1 OR 

OEPH 

1 OR 

OEPH 

1 1 0 

oeph 

1 I 1 
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Page 4 of 5 
30 September 1972 


JD1 = JOl 4H^L jr> 

JSP=JHfMrLX JO 

tz\ CONTINUl' J 

c COMPUTE DiF'^rrr^^rNCfS j 

f 1 0 DO 608 1=1. 17 
IIsH-32 

pur?( 1 . 1 ) = MUTAT>:( I I ) 

•3UF2( 2 . I ) -N'JTA T‘-{ I ! - 1 > + nuT AT£( I I + i )-?, 0 0*N’UT ATFT (II) 

DUF? ( 3. I ) = VUTAT'^ { I 1 + 2 > + NUT ATE ( II - 2 ) - A . T O'^NUT ATE ( 1 1 4 1 ) 

• “4,DO«NUTATE< I I - I ) + 6 , 0 >-^MUT A TH ( I I ) 

06 = NUTATE( 1 I - 3 ) 4MUT ATE t I 1 4- 3 ) - 6 . D 0* ( M IJT A T E ( 1 1 - 2 ) 4 N J T AT E ( 1142)) 

• 4l5«D0*(NUTATn( I I“l )4NIJTATE( I I + l ) )-?0•DO^^JeTATr( I I ) 

De=NUTATE( I I“A )+m'JTatE( Il4A)-e.DO»"<'>JUTATF( I I-3J4NJTATE( 1143) ) 

• 4 2F.00*NUTATEC 11-2)*- 2F . DO*NUTATE ( Il42)-rX,r0 4( NUTATE ( M - 1 ) 4 
^NUTaTc { I H- 1 > ) 4 70 .OO^MUTATE ( I I 1 

PUF2( 2.1)=nuF2(2,I)4A(l)»D64A(2)*D8 
9UF2( 3.I)=0UF2(3.I)4A(3)r-0 64A(A)«DB 
00 608 J= 1 , 3 

BUFl ( 1 . j, I )sS0LAP5( J. I I . U 

BUF 1(2, J, I )s5DL^='8(J♦II-l,l )4 SOlARE( J,Il4l ,1 )-?. DO^SOL AR5 ( J « M « 1 ) 
^UFl ( 3f J, I ) = SOL A 9 5 f J , I I + 2 , 1 ) 4. SOLAP? (J.II"2»1>-«,00#SCLA95(J,II~1, 

• )-A, DOT SOL A9*:(J, II4I .1 )4c.D0TS0LAR5( J,II ,1 ) 

D6aS0L AR£3( J ,11-3,1)4 SOLARS ( J»n43.1)-f’.C0T(90LARE(J»II-2,lI + 

• SOLARS (J.1142, 1 ) >415,D0*(S0LAR5CJ,II-1 ,1 )4SOLAR5(J.Il4l. I )) 

• -20.D04 SOL AP5(J,II,1) 

Oe»SOL AWS ( J « IT-A , 1 ) 4S0LA RS ( J,ll4f,l)-e. ,C0*(S0LAR5(J.II-3,1) + 

^ • SOLARS ( J.!I43,1))42P- .OOtC SOLARS ( J«II-?,1)4SCLAP5(J.II42,1))-5A,D0 

• ♦<SPI ARA(J,TT-t.l)48ni AP8(J,II+1,^)j4.7r>.nftw‘ArUAPS(J,II,l) 

BUFI(2,J,I)sRLtFl(2.J.I)4A(l)*D64A(2)TD8 
BUF1(3 iJi1)=RUFI(3.J.])4A(3)*D64A(A)*DS 
foe continue 

DO 611 1*1,3 
II=(I-|)*8433 
do' 61 1 Ka2 I NEO 
00 611 J*1 . .3 

0UF3( I , j* I . K- 1 )= S0LAR5( J , I I , K) 

0UF3(2, J, I , K-l )=SOLARE( J. II -6 ,K) 4S0LAP5 (J,ll4e,K)-2.D0* 

• S0LAR5( J . I I , K ) 

BUF3( 3, J , : , K- 1 ) =SOL AP5( J , I I 4 I 6 . K ) 4 SOL AR5 ( J , I I - 1 6 , K) -4 . DO* 

• (SOLAR5(J,II-6',K)-i-SOUARS(J,II+0,K)) + 64DO*SrLAPS;(J,M,<) 

06 = S0LAR5( J. I I“24,K)+SOLARS ( J, I I +2^, K)-^,DO*( SnLAP5(J, I 1-16, K)4 
•SOLAR5( J.II41F.K))+1 S.DO*( S0LAR5( J,lI-3.K)4SnLAR5(J.Il40,K>) 

• -20»0 0* SJL AR5( J , I I , K ) 

DP = SOL APS ( J, II-32,K)4S0LAR5(J,i I432,K1-P,D0*(5OLAd5(j, II-24,k) + 

• SOL AR5( J.ll4 2i,K)}4234D0*(SOLARS(J,II-lfi.KMSCLAP5(J,U4.i6.K)) 

• -*5e.OO*(SOLAPE<j,II-fl,K)4SOLAPS{J,Il4.0,K)>470.DO*SOLAR5(J,lI,K) 
BUF3{2,J,I»K-1)=3UF3(2,J,I»K— l}4A(l)*Dt+A(2)4cnr^ 

nuF3( 3.J,l,K-l)=nuF3(3,J,I.K-l)4A(3>*D64A(A)*C? 

C 1 1 CONTINUE 
C »i'RlTF OUTPUT 

0AY=DJ-DJ3ASE4PA5E ' ' ' 

0A Y=DA Y/8 .6aE a- 32. 1 S/P. 64E4 
call C)A tf s( a y , 1 y , I y‘-’o * I hm , sec ) 

WPITC(OUT) I YMO , I HM , SEC .RU*:".? . ( GMPP(I } , I s: J , 27 > 

WRI TF. (OUT ) ( Rur4«( I > . T =1 . 51 ) 

WRITECnUT ) ( 3UFM( I ) , I -5 2, 1 02 ) 


OEPH 

OEPM 

OEPm 

OFPH 

OFpm 

OFPH 

OEOH 

OFPH 

OCPH 

OEPH 

OFPH 
OE^H 
OFPH 
OFPH 
OF^H 
OFPH 
OFOH 
OEPH 
1 OEPH 
OEPH 
OEPH 
Oe.PH 
OFPH 
OEPH 
OEOh 
OFPH 
OFPH 
OF.PH 
OEPH 
OFPH 
OEPH 
OFPH 
OFPH 
OF.PH 
OEPH 
OFPH 
OEPH 
OFPH 
OFPH 
0=PH 
OEPH 
OFOH 
OFPH 
OEPH 
OFPH 
OFPH 
OFPH 
OFPH 
OFPH 
OEPH 
OFPH 
OFPH 
OFPH 
OEPH 


! I ?. 
I 1 3 
J 1 
U E 
1 1 1 -' 
I 1 T 
1 1 8 
1 I 0 
120 
121 
122 
] 2 3 
1 2^- 
128 
126 
12T 
12A 
1 20 
1 30 
131 
I 32 
133 
) 3A 
1 38 
136 
1 3*? 

1 38' 
1 3® 
U.O 
lAl 
1A2 
1 A3 
144 
1 A5 
1 A 6 
1*7 
1 48 
14 ? 

150 

151 
1 5 2 
153 
ISA 
1 55 

156 

157 
1F8 
1 

1 60 
16 1 
1 62 
1 53 
1(A 
1 65 
168 
167 
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KPiinM 

Page 5 of 5 
30 September 1972 


^ OF THE 

PAGE IS 


WRlTf(ODT > ( HU^M( I),I=103«I=53) 

wRiT«-:(cvjT ) { nuFP ( I ) . 1-aa . *51 ) 

WRlTCCrUT) ( ?UFP( I ) , 1 =P?, 135 ) 

OJsDJta.OO y 

RCCaR0“'=C0r<0+ I 

IP(RrCei-'D.LT.ll) v/RrTE{6»100l) lYM3*!HM»r.rC. »DJtBU'^l*eU*^?»BUF3 
|F( RSC?i-0 . GT . 10 5 V.'O I TF( 6. 1 0 02 > 1 YMp , I M M , SE C » T J i RFCOR D 
C SHI«^T BACK VALU‘^5 

DD 030 1= 1 t 6-3 . • ' 

Il-IflC 

NUTATF.< I )^\-UTATSn T J 

OO 630 J= 1 . 3 

00 630 K=1 ,N^0 

SOL AR5( J.I.K)=SnLAR5(J*II.K> 

630 continue 

1F(ICW.F0.3) GO TO 100 

I F( DJ . G£*OA YENR ) GO TO 100 
60 TO 620 

C TEST TO SEF IF LAST TAPF HAS BEEN PtAO • 

100 IFtIN.EO.lA} GO TO 200 
TT 1ME» 1 TIME + 2 

IF<T1MESC I T IMF > .LE. 0* ) GO TO 200 
0AYEN0=T1MES< ITIMEf 1 ) 

rEwIno In ■ . . 

IN=IN+1 
ICWsl 
60 TO 630 

•200 WRlT£C6» 1000) DJ 
IYMO=0 

WRlTE(OUT) I YMO , IHM, SEC .BUF2 , (BUFPCI ) , 1=1 ,27 ) 

WRIT£( OUT) I SUFM( I ) , I =1 . e 1 ) 

WRITE (OUT) ( BUFMC I ) , T =52, 102 ) 

WRITE(OUT) (,BUFM( n . I =103, 1 53) 

WRlTEtOUT ) ( RUFO( I ) , I =2 Bi 51) 

WRIT£(0UT> ( DUFp( I ) , I =Q2, 135) 

END file out 
rewind out 
REWIND IN 
STOP 

1000 format (• IEPHEmER I S TAPE GENERATION C OMPLETE ' / • Ol AS T DATE ' , G25, 1 6 ) 

1001 FCRMAT( lHl/61 ( 5G25, 16/) ////) 

1002 *^OPMAT ( IHO , 5G25 . 1 6) 

1003 '"ORMATI 60 1 2. 6) 

END 


OFPH 

OFPH 

OEPH 

0*^PH 

OEPH 

OEPH 

OFPH 

or^H 

OEDH 

OFPH 

OFPH 

OFPH 

OEPH 

OFPH 

OE»H 

OEPH 

oeph 

OEPH 

OEPH 

OFPH 

OEPH 

OEPH 

OFPH 

OEPH 

OE»H 

OEPH 

OEPH 

OEPH 

OF.PH 

OEPH 

OEPH 

OFPH 

OFPH 

OFPH 

OFPH 

OFPH 

OEPH 

OEPH 

OFPH 

0«^PH 

OFPH 

OEPH 

OFPH 

OEPH 


e ■ 



16 « 

1 

J70 
IV! 
1 72 
17T 
J7A 

1 VE 
176 
i7-r 
173 
170 
1 “0 
1^1 
162, 
1 63 
1 3A 
1 66 
166 
1 «7 
166 
1 RR 
1 '50 
IRl 
102 
IP? 
lOA 
1 OR 
196 

107 

1 96 

1 90 
200 
201 
202 
203 

2 0^‘ 

205 

206 
20*^ 
20n 
200 
210 
211 
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ADDYMD 

Page 1 of 1 

30 September 1972 

ADDYMD 


'DESCRIPTION 


_ (See GEODYN) 


1 - 2^19 


CLEAR 


CLEAR 

Page 1 of 1 
30 September 1972 


DESCRIPTION 

(See GEODYN) 
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DATKS 

/ 


BATIiS 

Page 1 of 2 
30 September 1972 


DESCRIPTION 

DATES converts a number of days elapsed from 
Jan 0.0 of the arc reference year into a three-word date 
of the form: YYMMDD, HHMM, SEC. 
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DATll^ 

Page 2 of 2 
30 September 1972 


nam:; 

DATES 

PURPOSh. 

CCNVrf'TS DAYS ^LAfSEr r J.ir^ O.c OF TH. /DC 

f^riFL-PTNCL. Y'-'AR INTC A 3*'^OFL LAT-i OF TFC FDRM: 
YYMfCr. MHMM, ShC 

CALLING SiOLiiNCt 

CALL DATE S(DAY NP ♦ lY, lYMC, IHM, Sf- C) 

SYMOOL TYPL 

DL'SCFI PTl CN i 

pAYhf' OP 

input - DAYS ELAPSES FFCM JAM 0 #0 OF TFii Pf FERjMCF 
YEAR 

IV* 1 

I KPUT - 1 9SC FlPriSIMTHD LY J hM LAST TWO TIGITS 
I N THL FC'CM iTY 

I YMD I 

OUTPUT - YEAR, MONTH, DAY IN THF FORM YYMMC 0 

IHM I 

OUTPUT - HCUr, MINUTES IN Thfc FORM FHWM 

SEC P 

OfTPUT - SLCCNDS 

SUHFOUTINES LStO 

ADOVMO 

COMMON DL3CKS 

NCNE 

IN^LT FILES 

NCNE 

ouTPLT fil: S 

NCNS 


SUOaiOOTlNi DA TE S(C AYNR. lY .lY WC . 1 hf^*S::C) 

docejl:-: prccisicn dayn^;*SiL*ay 

C NUMi^itR CF DAYS PACK JAM J CF RlFEPrKCL Vi-AH 

CA Ys^OAYKR + C .5r“A/e. 64 DA 
10AY=:3A V~1 . 

c NUMt^tA OF DAYS FPC^' JAN 1 OF THE niFnADKCE Yl-.AA 
I YKD Y*1 OG C04-1 01 

C CALCOLATt-; YEAR.f'OMH, CAY OF INTtPF.ST 
CALL ^DOYf'C (1 YMD tiDAY) 

C CALCLLAT:-: the NLMOFR CF SLCCNOS RuMAINIKC 
«=£• 6*D 4 *(D AY-FLOAT ( I CAY+1) ) 

C CONVERT T3 HOLF .Ml Nur:: rCFMAT 
1HWS4J<'( I Sc" C/36L0) + 1 sre/uo 
c PiMAlNiNG SLCOriLS 

S£C=S“F tOAT (6C*(1 SFC/6C ) >• C • 5C-A 

P.Z TUR i 
CNO 


DATS 3A 
DATE 35 
DATE 36 
OATF. 37 
DATF 2d 
PATE 39 
OATH AC 
DATE 41 
DATE 42 
DATE 43 
DATS 44 
DATE 45 
DATE 46 
DATE 47 
OATS 48 
DATS 49 
OATS 50 
DATE 51 
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DESCRIPTION 


DIFF calculates the difference in days and seconds 
between any two time points in the 20th century. 
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NAME OIFF t 

J 

PURt^OSF CALCULATES THr. D I F -f:. r> E f J : r P5TWEIN ANy TWO TIME 

POINTS IN THE 20TH CFNToOY 

CALLING St-OU“NCE CALL D I FF ( I YMD I . I H MSI , 1 Y M.r T , I HM? 5 , 1 DAY « I SEC ) 

SYMBOL TYPE DESCRIPTION . 

IYMOI I INPUT - FIRST DATE IN THE FORM YYMMOO 

IHMSI I INPUT - TIME ON 1 YMQl IN THE FOfM HHMMSS 

1YMD2 I INPUT “ SECOND CATE IN THE FORM YYMMOO 

IHMS2 I INPUT - TIME ON IYMD2 IN THE FORM HHMMSS 

IDAY I OUTPUT - ELAPSED FULL DAYS OJFFF.PENCE 

IDAY is NEGATIVE IF 1YMC2*IHMS2 IS THE 
FARLIER TIME 

ISeC X OUTPUT - REJ^AINOrP DP DIFFFRFNCF IN SECONDS 

ISEC HAS THE SAve SIGN CONVENTION AS IDAY 

SUBROUTINES USED RYmoI 
COMMON Blocks ‘months 

INPUT F ILES none 

output. files none 


SUPPOUTINE DIFF( I ymD 1 , iHMSl . I YMD2. 

HMS2.IDAY, ISEC) 

MFF 

36 

DIMFNSION MONTH! 13t2) 


riFF 

37 

DATA MONTH/Of 31 . 60»«1 » I 21 , 1 52 . 1 ?2, 

?13*?«^,274,30Ei335«36G, 

riFF 

33 

• 0. 31 « 59 1 PO. 1 20 . 1 51 . 1 SI . 

21 2 *243 »273. 30A, 33A,355/ 

BIFF 

39 

ISUB( I Y) -MIN0( MOD! I Y,4) ♦ 1 ) f 1 


OIFF 

AO 

isec=o 


DIFP 

A1 

■ IF( 1 YMDl .EO. I Y md?) GOTO AQOO 


OIFF 

A2 

CALL P YMDM I YMD 1 f I Y 1 , IMl * ID 1) 


DIFF 

A3 

CALL PYMDI ( I YMD2« I Y2 . IM2 . 102) 


riFF 

A« 

L1=ISU0( lYl ) 


OIFP 

AS 

IYEARI=35525T(IYl-l>/100fMONTH(IMl 

tLl ) + lOl 

OIFF 

A6 

L2slSUD( IY2) 


OIFF 

A7 

1 YF AR2= 3S5?5*( I Y2- 1 ) /I 00 + mONTH( I m2 

«L2)+I02 

OIFF 

AS 

IS£C=( 1 Yf-.AP 2-1 YEAR T ) *66A 00 


OIFF 

CO 

4000 IS'=‘C 1 = I H‘-^S 1 - AO# ( 1 HMSI /I 0 0 >-2A 00 *■( 1 H'.'St / I 00 00 ) 

DI PF 

50 

I SeC2= lmiS2-A0» ( l>lMS2/t00)-2400*<IHWS2/10000) 

OIFF 

51 

ISEC= isrc# ISFC2- ISEC 1 


P|C*r 

r>2 

lOAYn ISf^C/eOAOO 


OIFF 

5T 

l5FC'^ISEC-IDAY#-a6A00 


OIFF 

r,£. 

, RETURN 


OlFc- 

55 

END 


OIFP 

56 
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DESCRIPTION 


DJUL computes the Julian date for a time input in 
days from Jan. 0.0 of the reference year. 
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NAMC 

DJUL 

/ 

PURFCSL 

TO COMPUTE JULIAN DATE FOKy AN 
FftUM JAN OF THE REFERENCE 

INPUT TIME IN DAYS 
YEAR FOR THE ARC 

calling ScOUdNCi: 

X-OJUL{OAY) 

• * 

SYMoOL TYPE 

DESCR IPT ICN 

• 

DAY CP 

INPUT - TIME IN CAYS FROM JAN 
REFERENCE YEAR 

O.C OF THE 

OJUL CP 

OUTPUT - JULIAN CATE 


SUdRCUTlNc LSEO 

YMOAY 


CCFF.LN tiLUCKS 

NONE 


INPUT rlLcS 

NONE 


OUTPUT fills 

NONE 


KESTRICr JUNS 

NONE 


RGFERcNCES 

NONE 



OUUbLb PRtClSinN FUNCTION OJUL(OAY} 
Rc-AL^a, L>J ,DAY ♦ YMOAY 
LOGICAL NCn ST/, FALSEi / 

IFJNOT 1ST ) CO TO 10 
. NOTl ST«,TRUE. 

DJ-24J 3 I . SD0-YMDAY( 5CC 1 CC«0 « C, ) 

10 CJULstUJtCAY 
KETURN 
END 


DJUL 3C 
OJUL 31 
DJUL 32 
OJUL 33 
OJUL 34 
OJUL 35 
OJUL 36 
OJUL 37 
OJUL 36 
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JTK / 


description 

(See GEODYN) 
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DESCRIPTION 

EQUATR rotates a set of vectors from mean or 
true equator and equinox of one epoch to mean or true 
equator and equinox of another epoch. 
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NAME EQUATR ' 

J 

PURPOSE TO ROTATF. A SET OF VrCTOPS FRH'/ MfAN OP TRUE EOUATOR 

ANO roulNOX CN“ EPOCH TO MEAN OR TRUE *^OUATOR AND 
rouiNOx OF another CPOCH 


CALLING SEQUENCE 

CALL EOUATRl X.OIN.TIN. Y.DCUT . T OUT . I E 0 . NE 0 ) 

symbol 

TYPF 

DESCRIPTION 

X 

DP 

INPUT - SET OF VECTORS TO RE ROTATED 

DIN 

DP 

INPUT - DAY NUMBER 0' THE CCORDINATES SINCE JAN 0.0 
OF THE REFEOCNCE year 

TIN 

L 

INPUT - TYPE OF INPUT 

•TRUE. - TRUE COORDINATP SYSTEM 


•FALSE, s MEAN coordinate SYSTEM 
Y OP OUTPUT - ROTATED SET CF VECTORS 

OOUT on OUTPUT - DAY NUM»?ER 0= OUTPUT VECTOR SFT SINCE 

JAN 0.0 OF THE REFERENCE YEAR ' 

tout L input - TYPE OF OUTPUT 

^ •TRUE. « TRUE COCRCINATr SYSTEM 

•FALSE. = MEAN COORDINATE "VSTEM 

IEQ 1 INPUT - INDICATES WHICH MCMPEOS OF THE SET APS TO 

BE rotated 

NCQ I INPUT •* NUMQER OF MEH?FPS OF THE SFT TO BE ROTA^FO 

SUBROUTINES USED NUTATE PRECES 
COMMON BLOCKS NONE 

INPUT FILES NONE 

OUTPUT FILES NONE 


SUBROUTINE FOUATP(S.DIN,TlN,Y,DOUT.TnUT.IEO#NFO) 
RFAL*B X(6, 1) . Y( 3. 1 ) .NP( 3. 3.4) • T( 3) 1 Dl N.OOUT .TEMP 

dimension IF0( I ) 

LOGICAL TIN. TOUT 
M=2 

IF( .NOT. TIN) 00 TO 10 
M=1 

c OBTAIN MATRIX 'TO NUTATE FROM TRUE TO MEAN OF INPUT EPOCH 
CALL NUTaTL (0IN.NP( I ,1 .1 ) ) 

C obtain MATf-lX TO PROCESS F^OM INPUT FPOCM TO 1950 
10 CALL PRf:Cf:SlOIN,NP( I , I .2 ) ) 


EOUA AS 
EOUA AS 
EQUA A7 
FOUA AS 
rOUA AO 
FOUA 50 
EOUA 5t 
FOUA 52 
FOUA 53 
FOUA 5A 
FOUA 55 
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OBTAIN matrix to PR^CCSS FROM OUTPUT 

El'DCH TO 1^50 

FOUA 

56 


CAl L PPfCF.S(DOUT 

,NP{ 1,1 , 3) ) 

.'>■ / 

FOUA 

57 


N=? 


J 

rouA 



IF( .NnT*TJUT) cn 

TO 20 • 


FOUA 

5R 





Fl>UA 

, 60 

OBTAIN S^ATRIX TQ NUTATC FROM TRUt TO 

mean of output EPOCH 

rouA 

61 


CALL NUTATE (OnUT 

*NP( 1 *1 ,'4> ) 


FOUA 

6.? 

TKANf.l'O^F OUT=>UT EPOCH PRECESSION AND 

NUTATION matrices 

FOUA 

63 

20 

on 30 1=1,3 



FOUA 

6A 


DO 30 J-I . 3 



FOUA 

65 


00 30 K=3fN 



FOUA 

66 


TEMP = NP( I , J ,K ) 



EOUA 

6T 


NP( I t J •K)=NP( J. I 

*K1 


FOUA 

65 

30 

NP( J, 7 ,K)=TEMP 



FOUA 



DO 70 11=1, NEO 



EOUA 

70 


JJ= 1E0( I I J 



FOUA 

71 


LL=( 1 1~ 1 )*91 + 1 



FOUA 

72 


DO 40 1=1*3 


1 

FOUA 

73 

AO 

Y{ 1 ,LL > = X( I . JJ ) 



FOUA 

74 

POTATF INPUT VECTOR. 

TO OBTAIN OUTPUT 

VECTOR 

FOUA 

75 


OO 60 K=M,N 



FOUA 

76 


00 50 T»1 , 3 



EOUA 

77 


T( I ) = Y( I .LL ) 



FOUA 

7B 

60 

Y< IiLL) = 0.D0 


• 

EOUA 

79 


DO 60 1=1,3 


. 

EOUA 

80 


DO 60 J=1 « 3 



FOUA 

81 

50 

: ,LL)=Y{ I ,LL > f 

NP< I ,J,K>*T( J) 


rouA 

8S 

70 

CONTTNUc 



EOUA 

63 


RETURN 


. 

. FOUA 

54 


END 



FOUA 

55 
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GETTAP 

/ 


DESCRIPTION 

GETTAP obtains a Julian date through common block 
CETBL9 and tl^en reads the JPL ephemeris tape one record 
at a time. The record containing the information desired 
is loaded into common block CETBL3. 
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NAt-c GETTAP ^ ^ 

PUfiPC&c READS JPL TAPE DNE RECUKU AT A TIME GIVEN A JULIAN 

DATE 

calling Slcuencc call GETTAP 

SUtkCUTlNES LSEO NONE 

CCl'MCN blocks CETOL2 CET0L3 CETBLS PECI PEC2 

TAPE 

INPUT FILES IN - JPL EPhEMERIS TAPE 

OUTPUT FILES NONE 

RCSTNIwTIONS NONE 

RfcfEAcNCE JPL DEVcLCPkENT EPHEMERIS NUMBER 1 ■? 

TECHNICAL REPORT 32-1131 - C.J. OEVINS 
JPL» CALIF, INST. OF TECH., PASADENA, CALIF. 

.NOy» 15, 1967 


SUJROUTIKc GETT.AP 

COMNON/C6TeL2/ICW,ICSNT, IREQ< 12) 

COMMON/C cTRL3/TAU3( S29 ) ,NUTAT( 2CA ) ,CKSUM 
COMMUN/Cc 1EL9/JOI ,7DAY,JDIF,IEPMI 
COMMJ.N/keCl/ReCl(24 ) 

COMMUN/ktiCE/TEOOY.TYPE, AJC.BJO,STEP,0UM20(20) 

CCMMON/T/Fc/IN 

hEaL NcC2 (25 ) 

DOUBLE PRECISION T AB3 • C J . JD 1 » T E AY , J D I F 
EQUIVALENCE ( R EC 2 ( I > . T BOD Y » 

IF(lCw.ciC.l) CJ=l«CO2 0 

IcKfil*0 

J01F=Jtl-CJ 

IF( JDI «CE .CJ^^a.OOC ) GO TO 100 
IF( JOl .Gc .CJ } RETURN 
Aewinl) in 

AEAO(IN) RECl 

NEADUN) REC2 

REAO(IN) 1AS3 .NUTAT ,CKSUM 

ICw=2 

CJ=TA03(1) 

JOIF-JUI-CJ 

1F( JOl .GE «CJ«'E.COC ) CO TO ICO 
IF( JOl .Cc .OJ ) RETURN 
PRINT 2CC .JDl .OJ , IN 
PRINT C ,TA03,NUT AT, CKSUM 

STOP siaie 

XOO RcmOC IN, cNC=lS0 ) TABS.NUTAT.CKSUM 
CJ = TAb J( I ) 


GCTT 27 
CETT 28 
GETT 29 
GETT 30 
CETT 31 
CETT 32 
CETT 33 
GETT 34 
CETT 35 
GETT 36 
CETT 37 
GETT 30 
CETT 39 
CETT 40 
CETT 4 1 
CETT 42 
GETT 43 
CETT 44 
GETT 45 
GETT 46 
GETT 47 
GETT 46 
CETT 49 
CETT 5C 
GETT 51 
CETT 52 
CETT S3 
GETT 54 
CETT 55 
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J01F=J0l-CJ 

IF C Jt/l •Gc lOJ 'DC ) GO TO ICC Jr>. f 

FcTUf<N j. 

150 FkINT 250 «JO^ .DJ . IN 

PKINT jC 0 *TA >3.NUTAT.CKSUM 
STwP 5i3ie 

2C0 FUkMAT ( * M**»* CATA R5CUESTED JULIAN DATE *.G16.9.« 

• •THAN FIRST DATE •.G16.C'.* CN INPUT ONlT»,l3) 

250 rUKW AT ( • I DATA RECUESTEO AT JULIAN DATE •♦G16.?.* 

• 'THAN LAST CATE • t G 1 1 . 0 # * 0^ INPUT UNlT**13) 

3Cc FORMAT UHC/( 5G25* 16 ) ) 

CNO 


CCTT 

G£TT 

C£TT 

GETT 

CCTT 

GETT 

SMALLER * • GETT 
•GETT 

GREATER *• GETT 
GETT 
GETT 
GETT 


56 

5 ? 

oa 

5 « 

6C 

6t 

62 

63 

64 

65 

66 
67 
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> / 


Description 

MATRIX calls subroutine NUTATE to find the nutation 
matrix for a time specified in the calling sequence. It 
then multiplies the nutation matrix by another 3x3 matrix 
passed in through the calling sequence. 
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NAME 


MAT'?! X / 

PURPOSE 


J 

MULTIPLIES T-WC 3X3 MAr=tIC*S 

CALLING SE 

OUENCE 

CALL MATOI X(D AY . A, n) 

SYMBOL 

TYPE 

3 ESC® I OYi ON- 

DAY 

DP 

INPUT - TI CF NUTATION MATTi*< 

A 

DP 

OUTPUT - PPOOLCT nr T^£ Tfto MATPICE? 

B 

,0P 

INPUT - MATOi X TO BE MULTIPLH:3 BY T M • YJTATIDN 
NATPI X 


SUBROUTINES USED 

NUTATE 

COMMON BLOCKS 

NCNE 

INPUT FILES 

NCNE 

OUTPUT FILES 

NONE 

RESTRICTIONS 

NONE 

RSFEOSNCES 

NON? 


SUBQOUTINH MAT»IX(DAY*A*9) 

DOUBLE P^ECtSICN A(3 » .Bt 3 ,3 ) t CT n,3) . OAY 

CALL KUTATECDAY .CT) 

00 10 T=l *3 
DO 10 J-i .3 
A( ] « J) =0. ODO 
00 10 K = t ,3 

iO AU . J) =:AC I . J) +3 n . K) ^CT( J, K ) 

RETURN 

END 


MATP 30 
MATP 31 
NAT-3 3? 

MATfj 33 

VATP 34 
V4TO 3C 

VAT^ 36 

3-7 

NATf> 2 S 
MATP 30 
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DESCRIPTION 


(See GEODYN) 
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NUTATE 


/ 


DESCRIPTION 


(See GEODYN) 


1‘267 



PRECES 

Page 1 of 1 

30 September 1972 

PRECES 




DESCRIPTION 


(See GEODYN) 
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READE 

•^7 


DESCRIPTION 

READE interpolates the JPL ephemeris quantities to 
find values on the date and time specified in the calling 
sequence. It then performs coordinate transformations as 
specified in common block CETBL2 and unit transformations 
as specified in common block CETBLl. 
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subriouTiNt nCArccjc-.DiTScc .u r<n > 

J.t* cKuLCNL). Mt:SA SCIENTIFIC COf?r»,, 1965 SEPT 15 
C*l-* LAttSC'4* JPL . 1 966 MAR 17 » c 

kcAO JPL £PHEM£IWir, AT ThE JULIAN GPHilMtHlS DATE 
ClVuN \JY < jEi:4TSuC/66ACC .C-: ) > 

ITEMS CCMI^UNICATED THROUGH THE CALLING SEQUENCE ** 


JcU 

TScC 


lER^ 


PEFERL:nCE JULIAN EPHE^ERIS DATE* 

SECONDS or EPFEMEwIS time past JED* 

#NY COMOIN AT 1 CN (jF VALUES OF JEO AND TSEC 
IS ACCEPTAULE AS Lt;NG AS ( JE O^TSEC/ d 6A 0 C • 0 C > 

IS WITHIN THE RANGE OF THE EPHEM'iRlS TAPE 
eCING USED. HOV.tVcR TC OBTAIN THE 
FINEST POSSIBLE FESOLUTIUN IN INTERPOLATION 
THE NUMBER JEC MUST BE AN EXACT MACHINE 
NUMOQR* FOR EXAMPLE JED COULD BE A DATE ENDING 
KITH .0 OR *5 • 

ERROR FLAG 
C=NC ERROR 

1=C JED4TSEC/86AOC*OC ) LESS THAN FIRST DATE 
ON TAPE 

5*( JEDtTSEC/8 6ACC«D0 > 

ON TAPE 

3®SOM.E IREQ(I) IS NOT 0 
4S1C6NT IS NOT IN THE 
SalCW I S NOT 1 »2 » OR 3 


GREATER THAN LAST DATE 


1 • OR 
RANGE 


THRU I 1 


• « THE F Oi-LDW INC 
« CCMMUN dLCCK 
AU 
Rc 


TPD 

EMRAT 


ITEMS ARE INPUT THFOUGH COMMON *« 

CETBLl * 

A*U* EXPRESSED IN DESIRED OUTPUT UNITS 
EQUATORIAL RADIUS OF EARTH IN OES I RED OUTPUT UNITS 
F£ IS USED TO SCALE THE LUNAR EPHEMERlS 
DESIRED NUMBER OF TIMS UNITS PER DAY 
EARTH MOON MASS RATIO* SUGGESTED VALUE=31*300 


SUGGESTED VALUES FOR AU AND RE DEPEND UPON 
DESIRED OUTPUT UNITS AS FOLLOWS** 

F'OR OUTPUT IN EARTH RADII AU = 2 345 A . 7 ? AO 0 I 225 1 1 700 * RE =1.D0 

FOR OUTPUT IN KILOMETERS AU= I 4959 i 64 C* DO . RE =6378.16900 

FOR OUTPUT IN A*U* AU=1*C0. FE =4*26352071115035000-5 


SET TPD=e€4C0.D0 FOR VELOCITY 
SET TPD= l.DO FOR VELOCITY 


IN LINEAR UNITS PER SECOND* 
IN LINEAR UNITS PER DAY* 


CCMMON BLOCK CETBL2 ♦ 

ICW FLAG INDICATING STATUS OF COMMON BLOCKS REC2 

1 KEANS NEITHER CLOCKS CONTAIN VALID DATA 

2 MEANS BOTH BLOCKS CCNTAIN VALID DATA 
2 KEANS REC2 IS VALID, CCTrJLS IS NOT 
USER MUST SET ICW=1 BEFORE INITIAL CALL 

ICENTR SPECIFIES CENTRAL BODY FOR COORDINATE 
■TRANSLATION AS FCLLOWS*. 

1 .MENC 5 JUP 9 PLUTO 

2 Venus 6 sat lo sun 


AND CETOL3 
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to ti ■■ > 


iKdCH ) 


/ . 


3 EAKTH 7 URANUS U MOON 

4 MAPS a NUP 

INLO(J) SPEC I F IF S OUTPUT OcSIPEO^F.UM 

tony NO* j* ■' ' 


lKuO(J)=r NO OUTPUT 

1 Position 

2 POS IT I CN ANC 


J ftUKS FPOM 

1 MERC 

2 VENUS 

3 EARTH 

4 MARS 


I TO n AS 
3 JUP 

6 SAT 

7 URANUS 

8 NEP 


VELOC IT Y 
FOLLOWS, o 
9 PLUTO 
10 SUN 
1 1 MJUN 

12 ERTH-MN-OARYCENTER 

13 NUTATION 



» COMMON BLOCK CcTDLS * 

TA83 d29 OLUDLE PPeC. WORD CUFFEP TO ACCOMODATE J*D* AND EPHSMERIS. 
NuTAT'aCi** SINGLE PREC . WCRO BUFFER TO ACCUMUDATE NUTATION DATA* 

CKSUM I S.F. WORD FOR CHECKSUM, 

TMc rOLLO-viNG ITEMS ARE OUTPUT TFROUGH COMMON ** 

» COMMON BLOCK CfcTHLA * 

TAdOUTI * ) PLANETARY AND LUNAR OUTPUT. SCALED AND 
TUANSLATED V-ITH RESPECT TO CENTER.' 

TABOUT <1.J) CONTAINS OUTPUT FOR 
BODY HU. J. <1 *LE. J .LC. 12> 

THE INDEX 1 IDENTIFIES COMPONENTS AS FOLLOrfS.. ' 

1«X 2=V 3=Z 

. 4®XD0T SsYDOT 6®200T 

NUT( ) NUTATION OUTPUT 

KUT( 1 I sDFJ TA I ONG ITUDF 


COMMON* BLOCK 
BIV£CT< . ) 


KUT(2)*DELTA OOLICUITY 
NUT(3)sTIFE DERIVATIVE OF NUT(U 
NUT(4)aTIVE DERIVATIVE OF NUT<2) 

CETBLS t 

WORKING ARRAY. CONTENTS ARE INTERPOLATED 
AND SCALED BUT NOT TRANSLATED, 1ST INDEX RUNS 
OVER X, Y. Z. XCOT. YCOT ,ZDOT AS IN TA30UT 
BUT 2ND INDEX IS DIFFERENT AS FOLLOWS.. 

EODIES 1 THRU 9 ARE H EL I OCE t4 TR I C . 

1 MERC 5 UUP 9 PLUTO 

2 VENUS 6 SAT 10 MOON REL TO EARTH 

3 ERTHMN 7 URANUS 11 ERTHMN REL TO EARTH 

4 MARS 8 NEP 12 ERTHMN REL TO MOON 

13 SEE 40924- 


TH£ COMMON BLOCK *CETBL9» IS FOR COMMUNICATION 
BETWEEN RCEP2 AND GETR2. 


SUtlROUTINE READE( JEC.TSEC . lERR ) 

COMMON /CfcTBLl/ AU.RE .TPD.EMRAT 

CUMMON/Cc IBL2/I CW, I CFN T . IRFO ( 1 3 1 
COMMON /UETDL3/ T A H 3 ( 6 2? ) . NU T A 1 ( 2C A ) , CK SUM 
COMMUN/CO 1 CLA/TADQUT ( 6 . 12 ) ,NUT (A) 

COMMON /CETOLO/ [1IVECT( 6.13) 
C0MMUN/CfclDL9/J01 .TOAY.JDIF.lERRl 


READ 105 
READ IOC 
READ 107 
READ 100 
READ 109 
READ lie 
READ 1 1 1 
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ORIGINAL PAGE IS POOR 


c 


c 


c 


c 

c 


c 

€ 


C 


LOGICAL IhFLAG 

INTiGL^ Kt<i:0( 1?) .MCENT < U > . M J ( 20 I , JRE Q( J I ) * I PUS ( 11 ) ■ IVELl I 1 ) 
ktAL NUrAl ,STP(U) / 

DOUJLc Pr.cCISIUN AU. F.C *tMFAT. TPD *,T AH S * 01 VeCT . TAUOU T « NUT 

DOUHLi. PFtfISIllN JDl tTCAY.JDIF »JED 

UUUHLc PhfcClSICN TSEC»PAT» f AC « U < 2 » 3 ) » C ♦ T EMP 

FAC=l/£C400 

DATA F AC/ J. I 57^,r 74r7A". 7CO-5/ 

CATA STP/ 2 • . . ♦ 2 *• 5/ 

DATA KRdC/S . 5 .2» 6»5 #4 . 3t I / - , ' 

LATA friCLM/1 5 . 15i0 . 5, I 0, S/ 

LATA Ml/ll*:«12«n«0.12«irtCfl2i0.3»3f3«0*0»3tl3fl3»OfO/ 

LATA 

♦ IPJS /02.:92,146»200 «25A.3C3. 362, 4J6»470, 524.1/ 

♦flVqL /47, 119, 173.227. 201, 335, 309.443,457, 677. 103/ 

JD1=JC0 
TDhY=TScC4FAC 
CALL GtTTAP 

IFClHKkl .NE. C) GO TO 5CC0 

IFdCENT .Cc,. 1 .AND. ICENT ,LE. 1 1 J . GO TO 10 
IEHkl«4 
GO TU SCCC 
1C CUnTINUc 

SET JREC()TO CONTROL INTERPOLATION 

DO 20 1^1 ,10 

IF(lKEti(I) «GE, 0 .AND* IREQ(I) «LE. 2) GO TO 20 
i£HRl=3 
GO TO SOOC 
29 JRcOU IsIFEQC 1) 

EARYCENTER FLAG 

JRcQ(3)= IFEOI 12) 
kAXPLsJRECU) 

CO 24 1*2,10 

24 FAXPL=MAXC(MAXPL.JREQ<I)) 

MAXtM=MAXO( IRE0(3),IREC(1U) 

RAXALL=MAX0( MAxPL.MAXEk ) 

IF(lCcNT.EQ.3*aR.ICENT.E0.U ) CO TO 20 

CENTER IS NOT EARTH OR MOON 
lOsMOON . 3*£RTHMN 


JRcO( 1 0 ) *FAXEM 

JREQ<3 ) = M^x:(JREQ(3),MAXEM) 

JREQ( 1 CENT ) =MAXALL 
60 TO 32 

CENTER IS EARTH OR MOON 
1C*MOON .3=ERTHMN 

23 JRLQ( 1 C )=^AXALL 
,lRtO(3)=M^XPL 
32 JR:-o< 1 1 1 = inco ( 1 3) 

LUNAR* JREC( 10 ) 

]0ARY*JKcC(3)«3 

JRtQ( ) IS NOW SET 

SAVE'C • 

00 24t I EC0Y*1 ,11- 
1F( JRLC( J tODY ) J 240 .240,40 
40 IFISTP { I L'COY ) .EO. SA VE) GO TO 1 £5 
SAV£ = STP( lOOOY) 


READ 112 
PEAT 113 
READ 114 

r;-:au 115 

RitAU 116 
REAC* 117 
READ lie 
READ 119 
RCAO ISO 
READ 121 
READ 1 
READ I 
READ 1 
READ 1 
READ I 
READ 1 
READ 1 
READ 1 
READ 1 
READ 1 
READ 1 
READ 1 
READ I 
READ 1 
READ I 
READ 1 
READ 1 
READ 1 
READ 1 
READ 1 
READ 1 
READ 1 
READ 1 
READ 1 
READ 1 
READ 1 
READ 1 
READ 1 
READ 1 
READ 1 
READ 1 
READ 1 
READ 1 
READ 1 
READ 1 
READ 1 
READ 1 
READ 1 
ROAD 1 
READ 1 
READ 1 
READ I 
READ 1 
READ 1 
READ 1 
READ 167 
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160 Tc-MP = Jwl F/SAVE 




READ 

IGS 

KK=TcMM 





169 

1 » 1 ) sTcFP-FLOAT( KK) 




READ 

17C 

IF(U(1*1 «]6S*161 




READ 

171 

161 eUHT iNUc 




READ 

172 

U(^« u = 1 *c:-u( 1 1 1 ) 



r. 

RLAD 

173 

CO 163 16= 1 f 2 




RCAl 

174 

L( 1U«31=:U(IU. 1)»U( IU*1 } 




READ 

175 

U{ lu .2 ( C( lU .3 )-l . ) /C .DO 




READ 

176 

163 U(ie#3)=tt.( lUt3)-A.DC)/2''.O0 


i 


READ 

177 

165 1F( J buDY- 13 ) 169.167.220 




READ 

175 

167 C=ft£ 




READ 

179 

CO TO 172 




nCAD 

16C 

16 Si C=AU 




READ 

lei 

INTEPPOLATE IOOOY=1»2.. 

• • .10 


READ 

1 32 

172 IGcT 1= IPOSn BODY ) + KK*9 




READ 

133 

ICls^l 




REA.> 

18T 

2CC CONTINUc 




READ 

135 

IF(U< I .1 ))2: 3 . 2C 1 .203 




READ 

166 

2C3 lGcT2«lC5cll46 




READ 

167 

CO 20*. 1 C£T= IGETl. I GET2. 3 




REAP 

136 

01 VfcCT ( 1 Cl. IDCOY )s 




read 

139 

♦ C*(U<2. 1 J ♦(TA03( I GET 

) + 



READ 

19C 

* U(2.2)*(TAU3( IGETf 

IJ* 



READ 

19! 

« 0(2.3)* TAQ3( {G£1* 

2)1)4- 



READ 

192 

♦ . Ud.l )*(TA03( 1GC14- 

91 4- 



READ 

193 

« U< 1 .2) *( TAH3( TCET-I- 1 CJ ^ 



READ 

194 

* TAQ3(IGET*nM» ) 



READ 

193 

204 IClslCl*! 




READ 

196 

CO TO 205 




READ 

197 

2C1 lC2alCH-2 




READ 

193 

CO 202 1-lCU IC2 




READ 

199 

Ol VfcCT ( 1 . IBUOY) «C*TAB3( IGETl ) 




READ 

2C0 

202 lGLTIslG£Td3 




READ 

291 

205 CONTlNUt 




READ 

202 

Jp;£0( 1 6JCY ) S JREQ ( 1 BODY )-l 




READ 

20 3 

IF( jPLO( I ECDY n 2£*0«240.2C7 




READ 

20 4 

207 ICcTlslVfcLC 1BCDY)+KK*9 




READ 

205 

JC1=4 




READ 

296 

C*C/TPD 

• 



READ 

297 

GO TO 200 




READ 

208 

INTERPOLATE IDO0Y=ll 

NUTATION 


READ 

209 

220 C=1-D0 




READ 

210 

IGET1= IPOS { 1 D00Y)4KK*6 




READ 

211 

XC1 = 1 




READ 

212 

222 1GLT2= ice T143 




READ 

213 

225 IP (U ( I . 1 J J22d .226. 226 




READ 

214 

22d UO 230 I CfcT= IGET 1 . I GET2.3 




READ 

215 

KUT( 1C 1 ) = 




READ 

216 

♦ C*( U( 2 .1 ) ♦ (NUTAT ( IGET M- 




READ 

217 

♦ U( 2.2>*(NUTAT { ICET+ n f 




READ 

218 

♦ •• U<2.3>* NUTAT < ICLT + 2J in- 




READ 

219 

• U( J .11 * (NUTAT ( I GET^ 61 ♦ 




READ 

220 

♦ U( 1 .21 ♦(NOTAT < I GET + 7) ♦ 



. 

READ 

221 

♦ U(l.3)* NUTAT < lC£T*ei J ) ) 

* 



READ 

222 

230 ICl'lClfl 




READ 

223 
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GO TO 222 

22c OU 227 I CcT= I CtT I , I GETSf 3 

NUT( i C 1 ) =C*NUTAT ( I GET ) I 

22? ICl- IC 1 ♦ I j 

232 CUNTiNUd 

J«cO ( I CciDY ) = Jk£.Q( I BODY >- I 

1F( JkjiOC 1 tCOY ) ) 2A:. 240, 236 . ' 

. 236 C=C/TPU 

IC:iTl = lVcL( 10CrY) + KK*t - ’ 

1C1=3 , s 

CO TO 22 « 

240 CONTiNUE 

INTERPOLATIUN IS FINISHED 
RESULTS ARE IN OIVECTI , )AND NUT ( ) 

TEST MOCN REQUEST 
IFILUNAR ) 4':20. 4020 ,4C 1 " 

NOTE* •ENRAT=£ARTH MASS/MOON MASS 
SET RIVcCT( ,in=ERTHMN CENTERED AT EARTH 
SET BIVECTI ,12)spRTHMN CENTERED AT MOON 

4010 KAT=l • CO/ (EMRAT+-1 *D0 > 

IMAKssLUNAP *3 

DO aCI 6 1 -I 1 IMAX 

KI veCT ( I I II )=RAT*SI VECT< I .L'i ) 

4016 bl VeCT ( 1 . 12 )=-EMKAT *£dl veCT( I . I 1 ) 

402C riFLAG=. FALSE. 

KCENTaKCshTI 1 CENT) 

C * OSGIN TRANSLATION LOUP 

DO 41Cd IRODY^l .12 
IF( IR£0( leOOY n 4106. 4ice. 4024 
4924 IMAXs I RLC ( IBQOY ) *3 

KASEaKCEM*KREQ( IBODY) 


K1=M1 ( KASc) 

CO TO 

(4C22 .4:4C.4032. 4:48.405 5. 

.♦ . 

40 22. 4C66. 4 C 40, 404 8. 4056. 

4 

4022, 4 0 76.4076, 4040,402 8. 

4 

40€4. 4060.4038. 4064, 40 30 ,KASE 

C 

KASE=1 5 

4920 K1>1B0DY 

C 

KASE'l* 2.6,1 1 

4032 OU 4036 l=l»IMAX 

4036 TAdUUT fI.ldOOY)=dIVECT(I.Kl) 

CO TO 

4108 

C 

KASE-2* £. 14 

4040 00 4044 1=1. IMAX 

4 04 4 T ABOUT (1 .lb0DY)=0.D0 

GO TO 

41C8 

C 

KASE'A.S 

4046 K2=3 


GO TO 

41CC 

C ■ 

KASE=5 

40E2 L2>1 1 


CO 1,0 

4C6C 

C 

KASE*10 * 

405b L2=12 


406U K1=1D0CY 

K2-I 3 



READ 

224 

READ 

225 

READ 

226 

READ 

227 

READ 

220 

READ 

229 

read 

2 ^0 

RE A3 

231 

READ 

232 

READ 

233 

READ 

234 

READ 

235 

READ 

236 

READ 

237 

READ 

230 

READ 

239 

READ 

240 

READ 

24 1 

READ 

242 

READ 

243 

READ 

244 

READ 

245 

READ 

246 

READ 

247 

READ 

246 

READ 

249 

READ 

250 

READ 

251 

READ 

252 

READ 

253 

READ 

254 

READ 

255 

READ 

256 

READ 

257 

READ 

258 

READ 

25? 

READ 

260 

READ 

261 

READ 

262 

READ 

263 

READ 

264 

READ 

265 

READ 

266 

READ 

267 

READ 

260 

READ 

269 

READ 

27C 

READ 

271 

READ 

272 

READ 

273 

READ 

274 

READ 

27 5 

READ 

276 

READ 

277 

READ 

270 

READ 

279 
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REPRODUCIBILrrY’ OP TH0 
ORIGINAL PAGE IS POOB 


CU TU 

C KASC=1.9 

Af64 Kl-lCcKT 

C KASc=7 

406a LO I-lil'/AX 

4C7 2 TA60UT < I « J20JY) =-P I VeCf ( I *K 1 > 

CO TO 

C KASr.= 12.I3 

AC76 K2sKASt-l 
GO T u A 1 : C 

C l«ASE=20 

AOOJ KlsIdUUY 

C KASe=16 


• BHAD 200 
RFAU 201 
RLAO 202 
. RiTAO 203 
Bt-AD 

Ri£Al> 205 
READ 205 
READ 207 
. READ 208 
READ 2^9 
READ 290 
READ 291 
READ 292 


4064 K2SICENT 

GO TO 4 1 C C 

C * • KASr=I7,I8 


4088 L2-ICCM 
K2=KASE-6 

4092 lF(wFLAC> GO TO 41C0 
bFEAG= «T HLc « 


BIVeCT( .13)IS AN AUXILIARY 
REEDED V.HEN K ASE = 5 i I C 1 1 7 , I 0 • 
FOR KAS5*05 B1VSCT( .1JJ=CARTH CENTERS 

FOR KASc=lO blVtCT( ,13I«MC;0N CcNTcRED 

FOR KASEal7,ie BIVECT( .13IaCRTMMN CCN 
CU 4996 Isl « I EARY 
4046 bl VECT ( I . 13 )sPl vnCT { I ,3J-RI VEC T< I «L2 ) 

4100 DO 4194 1 = 1 • 

4104 TAGOUT ( I • 1300YI «ai V£CT( 1 i Kl >-8 IVSCT{ I «K2 ) 

41C6 CUNT iNUc 
50CO lERR^IERPl 
RETURN 
END * 


READ 293 
RCAD 29A 
READ 295 
READ 296 
READ 297 
READ 298 
READ 299 
VECTOR READ 39C 


READ 301 
0 AT SUN READ 3''2 

AT SUN READ 393 

TEH5D AT’ ICENT READ 394 
READ 305 
READ 306 
READ 307 
READ 306 
READ SC9 
READ 31 C 
READ 311 
READ 312 


\ 


1 
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ROTMAT 


DESCRIPTION 

(See GEODYN) 
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RYMDI 


/ 


DESCRIPTION 


RYMDI separates a six digit number representing a 
date in the form YYMMDD into three two digit numbers 
representing the year, month, and day. 
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NAMc 

PU«POSi 

CAuLl.-^G SiiOUtNCi: 
SYMoUL TYPE 
YKO I 

r i 

M I 

D X 

SUBKOUTINtS L£ED 
CCPMCN BLOCKS 
INPUT FILES 
OUTPUT FILES 
RESTHICTIONS 
REFEFbNCES 


RYMDI 

TO SEPAPATt: PACKfO STX-DI^Vt OiCIMAL OATES 
TWO-DIGIT YEAtT, l*ONTH» YNU DAY 

CALL RYMCn YMD. Y .MtD) 

DESCK IPT ION 

INPUT - CATE TO EE S^PAkATEO 
OUTPUT - TWO-DIGIT YEAR 
OUTPUT - TWO-DIGIT MONTM 
OUTPUT - TWO-DIGIT DAY 

t 

NONE 

NONE 

NONE 

NONE 

NONE 

NONE 


INTO 

'u- 


SUBROUTINE RYMDI <YMOiY.MtOJ 
XNTcGcF YMC,Y*M,D 
Y=Y«o/ioooa 
1=YMD/ 100 
M=I-Y* lO': 

0 = YFC- I* J Of) 

RETURN 

END 


RYMD 3A 
RYMD 30 
RYMD 36 
RYMD 37 
RYMD 30 
RYMD 39 
RYMD 40 
RYMD A1 
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DESCRIPTION 


YMDAY is a real valued DOUBLE PRECISION function used 
to compute from a given date and time the number of days £r 
January 0.0 of a given reference year. 
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NAML VMOAY 

purpose: given a DATr. cc^putes rye numdem cf days ffom 

JAN 0.0 OF THt R£FEF;-NCc Yf:AR FOR THE ARC 
CALLING SF.OU: NCU X = YFC AY ( I Y MO t I HN ♦ S f.C) 

SYMBOL TYPE CLSCRlPTICN 

A OP OUTPUT - NUMPLR OF PAYS FROM JAN C .0 OF TKE 

Pt-FFRiNCF YLAR 

IVMD I INPUT “ CATE IN THE FCRK YYMMCC 

IHM • I INPUT - HCUFS ANC MINUTES IN THE FORM HHMM 

sec R INPUT - SECCNCS 

SUBROUTINES USED ADOYMD 
COMMON BLOCKS NCNE 

input FlLi S NCNE 

OUTPUT PILE S KCNE 


00C3L- PRECISION FUNCTI CN YMCAYdYM 

logical NOTIST 

OMA NOTl ST/.FALSL*. / 

IF (NOTl ST) GO TO 10 

NOnSTs.TRUr. 

iY=n YMo /: 0 COO) *1 cocc+i Cl 

JO IHMS-I 00 

CA LL J I FF (1 Y . 0 . 1 Y MO « I HM S 1 1 0 . I S ) 

YMDA Y=eeACC TO + l )+ 1 s 
YMOAY=( YMDA Y+ SEC) /6 . 6AD4 
RETURN 
END 


.IHMrSCC) YMDA 29 

YMDA 3C 
YMDA 31 
YMDA 32 
YMDA 33 
YMDA 34 
YMDA 35 
YMDA 36 
VWDA 37 
YMDA 36 
YMDA 39 
YMDA 40 
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ORBl CONVERSION 


. , INTRODUCTION 

I 

The ORBl CONVERSION program As used to convert a 
9-track 360 double-precision ORBl tape to a 7-track 7094 
single-precision ORBl tape. 

The main routine reads iii IBM 360 double-precision 
words and writes on a 7-track. tape the equivalent IBM 7094 
single-precision words. 

The subroutine WORD94 does the conversion from the 
IBM 360 64-bit floating point format to the IBM 7094 36-bit 
floating point format. 
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MAIN - ORBl CONVe/sION 


DESCRIPTION . . < 

The main program for ORBl reads a block, converts each 
double precision word in the block to the IBM 7094 single 
precision format using subroutine WORD94, and then outputs 
the converted block. This procedure continues until all 
blocks on the input tape have been processed. 
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PUhPCSu 


•SUUkCUTlNe USED 
Cd'f'CN DLOCKS 
INPUT PILE 
OUTPUT F lUE 
RESTRICT IONS 
REFERENUiiS 


MAIN - ORBl CONVEPSIIN 

/ 

TO CONVERT A c^-TPACK IBM 36J FORMAT ORDl TAPE TO 
7-TRACK lOM 7C94 FUMMAT 

WORD94 

NONE 

IN - FORTRAN LOGICAL UNIT NUMBER FOR INPUT TAPE 
OUT - FORTRAN LOGICAL UNIT NUMBER FCR OUTPUT TAPE 
NONE 

CSFC ORBIT TAPE - FORMAT 1 


LOGICAL*! BUF(6*3S0) 

REAL*3 CEUF(JSO) 

INTEGER IN/10/»0UT/ 11/ 

C READ tACH RiiCCRD 

10 READ U N I £hD=30 > OBUF 
C'CALL fcORDS'4 1C CONVERT EACH' INPUT VkORD 
DO 20 1 = 1 «35C 

2C CALL WCRCSA < DEUF ( II'*DUF( I * I ) J 
C OUTPUT RECCRC 

kRITE(CuT*l30C) bUF 
CO TO io 

C END FILE OLTPUT TAPE AND TERMINATE 
. 30 tNOFILE CUT 
STOP 

leCC FORMAT C21/1J 
END 


CR81 21 
•0R6I 22 

ORDl 23 
CRBl 2A 
ORDl 25 

TO OUTPUT FORMAT OMUl 26 

ORDl 27 
ORDl 2B 

. CRBl 29 

ORBl 30 
CRBl 31 
ORDl 32 
ORDl 33 
CROl 34 
CRBl 35 
ORDl 36 
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WORD94 


/ 

y 


DESCRIPTION 

\ 

Subroutine 1VORD94 converts a word in 64 bit 
IBM 360 floating point format to 36 bit IBM 7094 float- 
. ilig point format. 

The order of computation is as follows; 

• Bits 8-3S (the fraction) of the 360 word 
are extracted and placed in bits 2-31 of 
an integral word (NUM) . 

• . The sign (bit 0) and exponent (bits 1-7) 

are extracted and stored as integer. 

• subtracted from the exponent and 

• the result multiplied by 4 to change to base 

2 . 

• 

« Bits 30-28 arc sequentially tested for non 
zero to obtain a normalization count, N. 


t U1 H 

30 September 1972 


d N is added to the exponent and the fraction 
. (NUM) is shifted right 4-N bits. ^ 

• The fraction is then stored six bits at a 

time from the right (bi'-ts 76-31 , 20- 25 into 
the output characters ^(6 , 5 ... 1) . 

o In 2d character 1VORD94 stores the low order 
3 bits of the exponent and bits 28-30 of 
the fraction, 

« In the 1st character WORD94 stores the high 
order bits of the exponent and the sign. 
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NANL 

te0R09A 

PURPLSc 

TO CONVERT FROM 360* 54 BIT FORMAT TO 70S4* 36 
BIT FORMAT (FLOATING POINT) 

CALLING SfcCUtNCe 

/ 

CALL W0RC<;4 (W360 *WS4) 

J 

SYFbOL TYPE 

DESCRIPTION 

W3oC L*1 

(L) 

INPUT - 360 DOUBLE PRECISION iVORD 

W94 L*I 

OUTPUT - 7094 SINGLE PRECISION WORD 

SUERCUTINES LSED 

NONE 

CCMKCN 8L0CKS 

NONE 

INPUT FILES 

NONE 

OUTPUT FILES 

NONE 

RESTRICT IONS 

NONE - * , ^ ' 

REFtRENCeS 

tt 

IBM 360 AND 7094 PRINCIPLES OF OPERATION MANUAL 



SVSP.O'JTIKE V'OPr‘94 ( “ 3*5^ tV-9 A t 
LO(ilCAL*i W36C(SJ,W94(e>.Ll(4) ,L 
eOUlVALENCc. ( LI . IN) . ( U 1 C 4 ).U J 

C (JIT CONTAINS <«LL INTEGER PCV.ERS OF 2 WHICH FIT IN 1*4 WORD 

iNTLGcft eiT(32J/ZOCOCOOOl .ZrjOCeOCOS.ZOCOOOCOA.ZOOOOCOOB. 
• • . ZOOOOOOlO .ZCO0C0O2D . ZOOOCO04O .zoocoooao . 

. • 200000100 .ZCCCC02C9 »ZOCOC0400.ZOCCOC800, 

• 2C00OlOC0,Z0CCC2rD0.ZCC.:04000.2D0C080O0. 

• • 2C0010CC0 f Z0CO20CG0 » 200040C 00 |2CC03C000. 

• zooioocco,zoc2cooc:.zoo4oocoo.zcosocooo. 

• Z0l00cc00»z020c0000,z04000000#z03000000. 

• Z100000c0*z2ccc0000. ZAO 000000*280000000/ 

C EXTRACT MANTISSA (FRACTIONAL PART) 

IN=0 

L-W360<5> 

KUM=IN/4 

L«*360<4) 

NUM=NUM* ^^♦8IT(7 > 

L>W360(3) 

KUMsNU M+IN*RIT( 15) 

L=W360(2) 

NUMs NUMf lN*aiT<23) 

C EXTRACT SIGN 81T 
Lsw360(l> 

ISGN=I N/e IT (3 ) 

C EXTRACT EXPONENT • 

iexP-{ IN- ISGN*D IT( 8 )-0 IT( 6)1 *D 1T(3 ) 

' N*0 

: TEST FOR ZcRC WORD 


*»0»D 

■'O 

WORD 

31 

WORD 

32 

WORD 

33 

WORD 

34 

WORD 

35 

WORD 

36 

WORD 

37 

WORD 

38 

WORD 

39 

WORD 

40 

WORD 

41 

WORD 

42 

WORD 

43 

WORD 

44 

WORD 

45 

WORD 

46 

WORD 

47 

WORD 

48 

WORD 

49 

WORD 

50 

WORD 

51 

WORD 

52 

WORD 

S3 

WORD 

54 

WORD 

55 

WORD 

56 

WORD 

57 

WORD 

50 
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r\T\ nniBlLITY 


rvn rnniV 


IF(ItXP.CT.C) GO TO 10 
IcXPsO 

KUMsO i 

C ADJU*/T EXPCNthT Fr.R BINARY NO P MAL I ZAT I UN INSTEAD OF 
10 CO 20 1 *3 

lF(NUM.Gc .BIT (31-1 ) .OR .lEXP.EO .0) GU TO 30 
lcXP=IcXF-l 
20 h=Nfl 

C SHIFT MANTISSA TO ACCOUNT FOR N 3RM AL 1 ZAT I ON 
30 NUM=NUF/UIT( A -N) 

C OUTPLT 7Ci4 FANTISSA 
00 40 I- 1 «S 
1N=NUM 
fc04(7-I)=L 
4C MJMsNUM/e 1T{ 7 I 

C PUT LOW CROefi THREE BITS OF EXPONENT IN WITH FIRST 
lEXPslEXF-tlSCN^BITI 9) 

1N=!N+ IcXP*BI T( 4 > 

*94(2>=L 

C INSERT HIGH CfiOER BITS OF EXPONENT AND SIGN 
1N=I EXF/E IT{ 4 ) 

W94( n-L 
C AUL CONE 

RETURN * 

END 


WORD 39 
• WORD 60 

WORD 61 

HEX NORMALIZATION WORD 62 

WORD 63 
WORD 64 
WORD 65 
WORD 66 
WORD 67 
WORD 68 
WORD 69 
WORD 70 
WORD 71 
WORD 72 
WORE 73 

3 BITS OF MANTISSA WORD 74 

WORD 75 
WORD 76 
WORD 77 
WORD 73 
WORD 79 
WORD SO 
WORD 81 
WORD 62 
WORD S3 
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1.2.5 TDIF TABLE GENERATOR 


INTRODUCTION 

The TDIF TABLE GENERATOR generates tabular differences 
between time systems A.l and UTl. IJ^reads as input the 
differences between systems UTl and^ UTC which are obtained 
from B.I.H. Using the differences between A.l and UTC 
computed by subroutine TDIF in conjunction with, the dif-- 
ference between UTl and UTC, the TDIF TABLE GENERATOR 
computes the' differences between A.l and UTl, 

Continual maintenance is required to keep these 
tables up-to-date. 



COMMON BLOCKS 


SUBROUTINE CROSS REFERENCE CMAHT 


CALLING ROUTINES 



MAIN 

Zj 

D 

—> 

Q 

u. 

5 

YMDAY 

DIFF 


m 

■ 

© 

DJUL 



■ 


tdif 

Qj 


■ 


YMDAY 

m 

Q 

Q 



*DJUL IS AN ENTRY POINT IN DPFCT. 


COMMON BLOCK CROSS REFERENCE CHART 


ROUTINES 


• 

MAIN 

BLOCK DATA 

DPFCT 

u. 

Li. 

Q 

TDIF 

YMDAY 

CONSTS 


o 

o 



■ 

CSTHET 



G 



■ 

CTIME 

o 





o 

INITBK 

0 


0 


0 

■ 

MONTHS 


0 


© 

■ 

■ 
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MAIN-TDI-GEN 
Page 1 of Z 
30 September 1972 

MAIN-TDFGEN 



DESCRIPTION 

The MAIN routine reads the UTl-UTC time differences 
and uses subroutine TDIF to obtain the A.l-UTC differences. 
Then MAIN subtracts these differences [(A.l-UTC) - CU’^'i'UTC)] 
to obtain the time differences between systems A.l and UTl 

(A.l-UTl). 



Page 2 of 2 
30 September 1972 


BEPRODUCIBILITy OF THE 
ORIGINAL PAGE IS POOR 


NAMc 

PUPPOSE 

SUtftLuriNuS C£EO 
CO'MtN dLOCKS 
INPUT FILE 
CUIPLT FILES 


MAIN - TOFGCN 
COMPUTES TIME DIFFEPuMCES 
DJUL TIF YMOAY 

CTIME INITOK 

5 - CARD INPUf 

6 - PRINTER 

7 - PUNCHES CARDS 


1 

BEJWEEN 


A. I AND UTl 


RESTRICT lUNS NONE 

repepences none 



fiEAL><«8 YMCAY,CAY.DJUL.CJ 

TOFG 

21 


ClMSNblQK AlUTl ( ICOO> 

tofg 

22 


COWMON/CT 1M£/CUM( 22 ) » I YREF 

TOFG 

23 


C0MMCN/IMT8K/N0T1ST(57) 

TOFG 

24 


DO S ]sl •«? 

TOFG 

25 

b 

NOIISTUlaO 

TOFG 

26 


|YR6F=b6 

TOFG 

27 


NUMsO 

TOFG 

2d 


lhM=0 

TOFG 

29 


SeC&O • 

TOFG 

30 

10 

PtAO(SilOCQiENO»lCC) I VMOtUTlUTC 

TOFG 

31 


CAYS YMCa'y (IYMD.IHM,SEC) 

TOFG 

32 


A1UTC=T0 ]F( A*3,DAY) 

TOFG 

33 


TAIUT1=TC 1F( 4 1 1 »DAY ) 

TOFG 

34 


NUMsNUM+1 

TOFG 

35 


CJ=DJUL(CAY) 

TOFG 

36 


AlUTl (NUH )sAlUTC-UT lUTC 

TOFG 

37 


IFCMOD ( NL^« SC ) .EO. 1 > PRINT 2D0C 

TOFG 

38 


1F(MDD(NUF«5 ) .EO. 1 } PRINT 20G5 

TOFG 

39 


PRINT 20 ICt I YMO. I NM , SEC ♦ 0 J . A 1 U TC * UT 1 UTC . A 1 U TI { NUM ) , TA 1 UT 1 

TOFG 

40 


CO TO 10 

TOFG 

4 1 

100 

PUNCH SOOC. ( AlUTl ( I ) , 1=1 ,NUM) 

TOFG 

42 


PRINT 3C CC< ( A lUTK I }« 1 = 1 .NUM) 

TOFG 

43 


STOP 4 1 

TOFG 

44 

1000 

FORMAT ( 16 .FIO .5) 

TOFG 

45 

2000 

FORMAT (• 1 YYMMCO HHMM SS.SSSS JULIAN Al-UTC UTl-UTC 

• • TOFG 

46 

• 

« Al-UT 1* .4X. « Al-UTl TDIF‘) 

TOFG 

47 

2CC5 

FORMAT (IX) 

TOFG 

48 

2010 

FORMAT ( 1 X ,16 . IS.F0 . 4,2X,F n ♦ 1 1 3X.F7* 4 .F9.4 .F3.4 , 3F1 1 ,4) 

TOFG 

49 

3000 

FORMAT (5 X ,1H«,1X,F7.4,1H,,F7.4,1H,,F7»4,1H,,F7«4*1H,. 

TOFG 

50 

• 

F7*4» IF* ,F7,4,1 H, *F7i4 ,IH, , F7.4, 1 H , ) 

TOFG 

51 


two 

TOFG 

52 



TDIF 


TDIF 

Page 1 of 1 
30 September 1972 




DESCRIPTION 

(See 6E0DYN) 
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BLOCK DATA 
Page 1 of 2 
30 September 1972 

BLOCK. DATA 


DESCRIPTION 

The block data routine initializes values for 
, 2rr., and the conversion factors for converting degrees 
to radians and arc seconds to radians. It also gives 
the day number of the first day of each month in a regular 
year and in a leap year starting from Jan, 0,0 of that 
year. 
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BLOCK DATA 
Page 2 of 2 
30 September 1972 


hAMt DLOCK DATA / * 

y 

PUhPUiiE DATA INITIALIZING OF PI, 2*f I « CCNVtiRSICN FACTOR 

OF DCGRL't-S TO RACIAN3. CONVERSION FACTOR OF ARC 
SECONDS TO HAOIA^S. AND THt; OAY NU'^bCR OF THE 
FIRST DAY OF EACH MONTH IN A YEAR 


CC»rMLN tiLOCK MONTH 


CLOCK .DATA 

IMPLICIT PEAL*6 (A-H,0-Z1 
COMMON✓CC^5TS/PI ,T^.OPI ,CRAD,ORSEC 
COMMCN/MCMHS/MONTH ( 26 ) 

DATA P 1/2 .14 1 59265 352979 3200/, 

• TWOPI/t .2r 3U;£30717 9 5t'64O0/» 

• DRAG/ .C174332S25 199432 9600/ . 

• 0;<ScC/.4a4e I36au C953tD-5/ 

DATA MCN1 h/0, 31 *60 * 91 , 121 »I 52 • ld2 ,2 13*244 ,274 ,305 ,335,366, 

• 0 t3I ,S9i 90 * 120 • 151 « ISl *2 12 ^ 243 * 2 73 * 304 ,3 34,36 3/ 
£NO 


BLOC 13 
BLOC 14 
BLOC 1 5 
BLOC 1 6 
BLOC 17 
BLOC 16 
BLOC 19 
BLOC 2C 
BLOC 21 
BLOC 22 
BLOC 23 


* 
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DIFF 

Page 1 of 1 
30 September 197 

DIF.F 


DESCRIPTION 


(See GEODYN) 



DPFCT 

Page 1 o£ 1 
30 September 1972 

DPFCT 


DESCRIPTION 


(See GBODYN) 
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YMDAY 

Page 1 of 1 
30 September 1972 


YMDAY 

i 


DESCRIPTION 

(See GEODYN) 
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SECTION 2.0 


OPERATIONS DESCRIPTION OF GEODYN 
SUPPORT PROGRAMS. 




2.1 GEODYN ANALYSES AND GRAPHICS SUPPORT PROGRAMS 


The GEODYN Analyses and Graphics Support Programs 
constitute an integral part of the GEODYN System. Included 
within this set of programs are the following: 

• DELTA DELTA computes, prints and plots satellite 
trajectory differences. 

• GEORGE - GEORGE performs a linear regression 
analysis on GEODYN residuals. 

• GROUNDTRACK - GROUNDTRACK plots subsatellite 
groundtracks used for analysis of tracking station- 
satellite pass geometric relationships. 

• 'WRDC SC4020 PLOT PACKAGE - The Plot Package is 

a group of subroutines that may be used to generate 
plots . 

The operation of the programs DELTA, GEORGE, and 
GROUNDTRACK will be described in the following pages of this 

section. 
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2.1.1 DELTA 


DELTA is a GEODYN support program which reads 
satellite trajectory tapes written by GI:ODYN and computes, 
prints and plots orbital differences../ DELTA reads 
inertial Cartesian coordinates and'' computes trajectory 
differences in the more physically meaningful radial, 
cross track, and' along track directions. Optional 
output from DELTA is a plot of these trajectory differences 
By calling WRDC SC4020 PLOT PACKAGE subroutines, DELTA 
will plot these differences on the printer and/or will 
write an SC4020 Plotter Driver Tape which may be used 
to obtain microfilm and/or hard copy plots of the 
DELTA trajectory differences from the SC4020 plotter. 

The following pages will describe in detail the 
setup and operation of the DELTA support program of the 
GEODYN System, 



2, 1.1.1 DELTA Input Cards 

The entire card input to DELTA consists of four cards 
per case with no limit on the number of cases. The four 
cards input to DELTA consist of the^DELTA Option Card and 
three title cards. These cards arp described below. 


1. 

The DELTA Option Card 

COLUMNS 

1-2 

FORMAT 

12 

DESCRIPTION 

Change of unit for first satellite 
trajectory tape (default is 21 or that 
value used by the previous case) . 

3-4 

12 

Change of unit for second satellite 
trajectory tape (default is 22 or that 
value used by the previous case). 

5 . 

LI 

T- Plot requested. F or blank--no 
plot requested. 

6 . 

11 

Request for type of output 

1 = microfilm 

2 = hardcopy 
4 = printer 

Any combination of the above may be used 
by simple summation. (Default is 7). 

7 

11 

-1 Specifies that the input tapes are 
ORBl tapes. (Default is RV tapes) 

8-9 

12 

— Plots every point 



th 

«=n Plots every n^ point. 
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COLUMNS FORMAT DESCRIPTION 

yo Specifics that another case will 
follow, 

>=0 This is the last case. 


11-22 


23-34 


35-46 


F12.6 Y-scale upper'l^imit for plots. A 

suitable, default value be used 

if no value is input here. 

F12.6 Y-scale lower limit for plots. A 

suitable default value will be used if 
no value is input here. 

F12.6 Y-scale divisions interval, A suit- 
able default value will be used if 
no value is input here. If a value 
is input here DELTA will assume that 
values also have been input in columns 
11-22 and 23-34, 


2, The DELTA Title Cards 


' Any information may be punched on these title cards 
in columns 1-56. Information punched on these cards will 
appear on the first frame of all plots for this case. These 
cards should be present only when plotting is requested. 
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2.1, 1.2 DELTA Job Control Language and Hardware and Software 
Restrictions 

2,1.1. 2.1 Job Control Language 

/ 

The DELTA program may be executed by use of the LINKGO 
procedure as follows: 

// EXEC LINKGO, REGION. GO-250K ; ' 

//LINK.SYSLIN DD * 

INCLUDE LOADLIB(ZCTVMDEL) 

INCLUDE LOADLIB(ZCRGWTYP) 

ENTRY MAIN 
/* 

//GO.FT20F001 DD LABEL= ( ,BLP) ,UNIT=2400- 7 , 

// DCB=CRECFM=FB,LRECL=6,BLKSIZE=4092,DEN=13 
// V0L=SER=PL0T2 

//GO.‘FT21FOOl' DD UNIT= 2400 - 9 , V0L-SER=RVTAP1 
// DCB=(RECFM=VBS,LRECL=72,BLKSI2E=7204) , 

// LABEL=(,ELP) 

//GO.FT22F001 DD UNIT=2400 - 9 , VOL=SER=RVTAP2 , 

// DC:b=(RECFM=VBS,LRECL= 7:2, BLKSI2E- 7204) , 

// LABEL=(,BLP) 

//GO.DATA5 DD * 

<«The DELTA Input Cards go here.<<< 

/* 

Unit 20 is used for output of the SC4020 Plotter Driver 

tape. 


Units. 21 and 22- and any other units which the user 
wishes to specify are used for input of RV tapes and/or ORBl 
tapes. 
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2. 1*1. 2. 2 Hardware and Software Restrictions 

DELTA requires an IBM 360 computer with a minimum 
of 250K bytes of user acecssabTe core, two 9 track tape 
drives, one 7 track tape drive, one card reader. and one 
high speed printer. ^ 

The current DELTA program is executable under 
versions 14, 16, and 18 of the IBM 360 operating system.' 

The compilation of DELTA requires an IBM FORTRAN 
IV Level G compiler. 

There are no DELTA software or hardware restrictions 
other than that the above mentioned hardv/are and software, 
be available and working properly. 



2. 1.1,3 DELTA Example Job 


The example job for DELTA is included with Example 
three for GEODYN in section 4.3 of Volunie 3, Shown in 
this example is the normal mode of oi>c^^tion for the 
DELTA program. However, as shown inysection 2, 1.1. 2.1, 
tape input may also be used for DELTA rather than concaten- 
ating the DELTA execution with a GEODYN execution. 



2. 1.1. 4 DELTA Error Messages 

There are no DELTA error messages other than those 
which may be printed by the WRDC SC4020 PLOT PACKAGE. 
These messages are described in section 2.1,4 of this doc 
lament. . 
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■2,1.2 GEORGE 

GEORGE is a GEODYN support program which reads 
a Binary Residual tape written by GEQDYN and using the 
information obtained from this tape performs statistical 
linear regression computations to determine tracking 
instrument zero-set biases and timing biases in the ' ■ 

GEODYN residuals. Optional output from GEORGE is a 
residual plot which may be obtained on the printer 
and/or a WRDC SC4020 Plotter Driver tape from which may 
be obtained microfilm and/or hard copy plots of the 
GEODYN residuals. To perform such plotting functions, 
GEORGE calls subroutines in the WRDC SC4020 PLOT PACKAGE. 

The following pages will de.scribe in detail the 
setup and operation of the GEORGE support program of the 
GEODYN System. 
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2. 1.2,1 GliORGE Input Cards 

Specific functions of the GEORGE program may be 
requested by input cards. The GEORGE Input Cards are 
separated into two categories: 

/ 

y 

• GEORGE Mandatory Cards - these are 
cards, that must be present for each case. 

• GEORGE Option Cards - these are cards 
that as the name implies are optional. 

A set of these cards will define a case. More th 
one case may be present. 

This, section of the manual describes the format 
and usage of the GEORGE Input Cards. 



MEASUREMENT CARD* 


range 


C BAND 


NWALI8 


:i;? 0 0 0 0 0 oli: 

» ? j < j lE 

I 1 11 n 1 


222222 


4 4 4 4 4 4 


<p 5 5 5 5 5 5 
' C S 6C€ C 
II 7 7 7 7 7 / 
^ 8 8 8 8 8 {( 
II S 99 9 S S 

1 » J < » » 


0 0 0 0 D ^ -yri'^C 0 0 0 0 0 C 

II IJ iJ » ;i ••: ;•• ,'i }} 71 !• n y. y-:::yy:--<-<'y::yyy:-:y\ ■.;■ 

linn j;| i n i n 

2 2 2 2 2 2 2 2 2 2 2 2 








” 3 3 3 j |||g 3 3 3 3 3 3 i|f ||iiiiiiiii|iSii||i 

4 4 4 4 4 4 §111 4 4 4 4 4 4 , x s * i ^ ^ ^ 






5 5 5 5 5 m 


5 5 5 5 5 5 


S 6 5 6 6 C 666d6F '< 

^ ITT T f MiM- 7 7 7 7 7 7 
0 8 8 8 8 8 3 8 8 8 8 8 

0 9 9 9 9 9 3 9 9 9 9 :' ' r ^ 

’’ 1? 1} him: .: :i ?J M ;s 










COLUMNS FORMAT DESCRIPTION 

A 6 Alphanumeric measurement type, left 

adjusted in field. Measurement types 
are: RT aSC, R RATE, X ANGL, RANGE, 

ALPHA, AZMUTH. 


11-16 


Alphanumeric network name, left adjusted 
in field. Network names are: STADAN, 

DOPLER, USAF, C BAND, SECOR, USC+GS. 
SPEOPT, INTERL, SAO. 


21-26 


Alphanumeric station name. 


Notes: * One Measurement Card is mandatory for each case. 

The mdasuromont type must be specified. 

, The network and station name are optional. If left 
blank, all networks and stations will be analyzed. 
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OPTION CARD 
EL CUT 


i 

EL CUT 


10. 



llllllllplfi® 



000000 


0 0 0 0 0 C 0 0 0 0 


liii 




1 } ) < w 


■ 1 1 ; 1 ] » »i « It It 1 ? r 


iifx'i'X.l /'t 

•:vX';«.>/ .**:• >. v <;•>*: *v, 

-v:-.:-':' ••-> 5.^ ' ■■ ' '■ y< h •■’ ■<;••’'!••/:-“'-:•■ V 


111111 


111111111) 






222222 


2222222222 

T:>v:T: 





333333 


3333333333 




. : , . , 7 :: i " 1 3 o ^ M 2 . ' 

■ 

444444 


1444444444 




. ' V ' ’i ' 5 ’ A ' 4 4. ' ■5 , 4 J 1. ^> 4 -S *5 


555555 

iiii 

5555555555 


illili 




6 6 6 6 6 C 


8 6 6 6 6 6 6 8 S 0 

ijjj'iijv;',;;;:? 



s.- i; ' v*'‘ •> •>>: |<'X<':W'X' xs’;‘T;v •> /,* <,• '^, V 


777777 


7777777777 

liSI 



’ '* 7'7 "77“?' 


88868S 


0888883888 

nil 



's ^ J ' 


9 9 9 S 3 S 


D9999999S9 






1 2 ) < » r 


■1 i; n !i :5 ’» 11 1» -i::- 




o' s '^. ... »'< . k -- ^ * '>' 










COLUMNS FORMAT 

1-6 A6 


DESCRIPTION 

The word ”EL CUT" requests that data 
elevation cutoff' be made. 


11-20 


F10.5 Desired data elevation cutoff angle. 
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OPTION CARD 
HISTGM 


HISTGM 


1. 


000000 
1 } } 4 S < 

n 11 M 


0 0 0 0 0 0 0 0 D 0 

II IJ IJ H 15 10 11 it 19 r. 

n 1 1 1 1 n 1 1 


222222 


2 2 2 2 2 2.2 2 2 2 


333333 


3333333333 


444444 


.H44444444 


555555 


5555555555 

||;||i 

666686 

v.v.'.v.v .• 

G 6 6 6 8 6 6 6 6 6 


777777 


im mm 

liili 

668886 


8388808866 


9 9 9 9 9 G 

1 ? . 4 S E 

' 


0 9 0 9 9 S 3 9 3 S 

" i: 13 H 10 'i i: ii :e 









■if' 


;• .V: ^ t- ;S;. 0 C 

- ^ ‘ , ' •» i ^ ■* * ’ Ti 

i “ >< * j 1 

! • ' ' , , 'V ? > ^ 5 •" ■: ' ' ' 5 . .' ' : 

/ A N i > ' 




COLUMNS 

1-6 


FORMAT 

A6 


DESCRIPTION 

The word "HISTGM" requests th'at histogram 
plots be made. 


11-20 


F10.5 


»0. Histograms of residuals, 

*=1. Histograms of residual ratios to 
sigma. 

*=2. Histograms of residuals plus a final 
histogram of all residuals. 

=3, Histograms of residual ratios to sigma 
plus a final histogram of all residual 
ratios to sigma. 


REPRODUCIBILrrY OF THE 
ORIGINAL PAGE IS POOR 
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OPTION CARD 
PLOT 


plot 


3 3 3 3 3 3 


4 4 4 4 44 


IS5S55S 


•V 0 0 0 0 0 0 0 0 C 'v v/0 -r^.O-y. -V^P^ 0 yv .■^ 

:':yy|ii t? n i« '5 IS 1 ) It n ;: 

y 'lll t 1 1 I 1 1 11 i 


? 2 2 2 2 2 :t|i 2 2 2 2 2 2 2 2 2 2 


y 3 3 3 3 3 3 3 3 3 3 

■4444444444^ 


555555555 


:6 6 6 G 6 G 6 C e C 6 C C 6 6 E ^ 3 




mm /p|;|: 7 7 7 7 7 7 7 7 7 7 ; ; / > ? 5 . ^ ^ 7 ^ » ? : ' r ' ' ; ' < < ^ 


1 0 9 9 0 3 2 399999999? 

1 I } J < C 5 .i;i:i^;;i4:v;’ 'i <J !J i« tj :i v ii :s ;; 








.■|/:;:s<.;;.;'.;*;;h.sv;v;;,i- 




j8 e 8 B 8 8 e 8 8 8 8 8 c 8 




COLUMNS FORMAT DESCRIPTION 

1"4 A4 The word "PLOT" requests that plots of 

analysis be made. 


11-20 


F10.5 =0. Printer plots only. 

=1, Printer plots and SC4020 Plotter 
Driver tape. 
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OPTION CARD 
REJECT 


I 


REJECT 


100. 

0 Q OD 0 0 

1 J ) 4 S ( 

11 11 i I 

h:-A>.A 

oooooooooc 

II 1? I] M 1) 1? li IS ; 

M n 11 1 1 1 1 

222222 

w& 

2722222222 

333333 


3333333333 

444444 

iiii 

4444444444 

555555 

iSi 

5 5 5 5 5 5 5 5 5 5.; 

C 6 6 6 B C 

<?•(<: 

S 6 C 6 6 G B 6 C B i' 

777777 

lil 

777777777?; 

£ 8 8 8 8 8 


3 8 8 8 8 8 8 8 8 e > 

9 9 3 3 9 S 

1 ^ ;• 4 } ( 

' 

- 

38939999991 

'1 '-1 1) >4 11’ <■: i; t} } : 




AfWAA-A 


iiiliSBKSiliSliiB 

) , >?•?’’: 


PPf-y'SiPPiii'iiPiiliifiiSiSiiS 

' > ' ' > > > : ' n ' r.i i i 7 - ^ ' i ; ' : 

‘^/'4';:rv'j:::;>:'?1,i,iii;:*';:;;';:-?'?:;j;’iil!;;;v iV:i:i;:i;:'i.<s;'<^i<;\;;: 


CO LUMN S FO RMAT DESCRIPTION 

A6 The word "REJECT” requests data editings 


11-20 


Flo. 5 Value of the rejection criterion. 


REPRODUCiBiLrry of ^ 
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OPTION TERMINATION CARD* 
.- DATA 


DATA 


000000 
t M 4 & < 

min 
222222 
333333 
4 n 4 4 < 
55S550 
6 6 6 6 0 C 
777771 
8 8 E 6 0 jj 


S 9 33 3 S 

) M 4 S i 


'• < i * < ' 




> / 


- -:v " v j 0 .0 'X tM;. :‘). :/.'^' 

n .V n .n ? n . .n' i ;n j n . 
:> i ;. ; ! n ' 3 ^ :n ; i K"' - ', - ■' 

::;:;;^||ii|:W|||||^ 








i iM'l ^ 




COLUMNS FORMAT DESCRIPTION 

1-4 A4 The word "DATA" signifies the end of 

the option cards. 

- Note: Termination Card - This card must always be present 

even if no option cards are used. 
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CASE TERMINATION CARD* 


.AST 




0 0 0 0 0 0 

1 3 } 4 & I 

nun 

2 2 2 2 2 ? 

3 3 3 3 3 3 

4 4 44 44 
5S3S5 

6 6 0 S 6 e 

777777 

e 3 e 0 6 c 

S9980J 
1 j 1 ‘ s 






.. 

, w t ^ V > ^ n ; n :» 3 ^ ; 










:.^^::i!’i; :5;;$ 

> * 


COLUMNS 

F0R>1AT 

DESCRIPTION 



1-4 

A4 

The word "LAST" appearing 
that this is the last case 

here 
. If 

indicates 

left 



blank this card indicates 
case will follow. 

that 

another 


Note: *CASE TERMINATION CARD - This card must always be present 

to terminate each case. 
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2,1, 2. 2 GEORGE Job Control Lajif^uage and ' Hardware and Softwai’e 
Restrictions 

2. 1.2. 2.1 Job Control Language 

; 

I 

The liEORGE program may bo executed by use of the LINKCO 
procedure as follows; 

// EXEC LINKGO, REGION. GO=S25K 
//LINK.SYSLIN DD * 

INCLUDE LOADLIB(ZCMLDGRG) 

INCLUDE LOADLIB(ZCRGWTYP) 

ENTRY MAIN 

7 * 

//GO.ET15F001 DD UNIT=2400-9,VOL=SER=ERESID, 

// DCB=(RECF.M=VBS,LRECL=80,BLKSIZE=3204) , 

// LABEL=C,BLP) ' ' 

//GO.FT20F001 DD LABEL= ( , BLP) ,UNIT= 2400 - 7 , 

// DCB=CDEN=1,RECFM=FB,LRECL=6,BLKSIZE=4092) , 

// , VOL=SER=PLOT1 
//GO.DATA5 DD * 

The GEORGE Input Card deck goes here. 

/* 

Unit IS is used to input the Binary Residual Tape.. 

Unit 20 is used for output of the SC4020 Plotter 
Driver tape. 

2.1. 2. 2. 2 Hardware and Software Restrictions 

GEORGE requires a large scale IBM 360 computer with a 
minimum of 525K bytes of user acccssabic core, one 9 track tape 
drive, one 7 track tape drive, one card reader and one high 
speed printer. 
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The current GKORGh program is executable under version 
18 of the IBM 360 operating system. 

The compilation of GEORGE requires an IBM FORTRAN IV 
Level G compiler. 

j 

There are no GEORGE software or hardware restrictions 
other than that the above mentioned hardware and software be 
available and working properly. 
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2, 1,2, 3 GEORGE Example Job 

The example job for. GEORGE is included with Example 
Two for GEODYN in Volume 5, Section 4.2, Shown in this 
example is t'le normal mode of operation for the GEORGE 
program. However, as shown in Section^' f , 2 , 2 , 1 , tape input 
may also be used for GEORGE rather tl)an concatenating the 
GEORGE execution with a GEODYN execution. 



2, 1.2. 4 GEORGE Error Messages 

In addition to those erro.r messages that may be printc?d . 
by the WRDC SC4020 PLOT PACKAGE the following error messages 

may be printed during the execution (Tf/ the GEORGE program. 

^ y 

a) ILLEGAL MEASUREMENT TYPE- -SKIPPING TO NEXT CASE 

b) ILLEGAL NETWORK NAME- -SKIPPING TO NEXT CASE 

c) ILLEGAL OPTION CARD-- 

REMAINING OPTIONS IGNORED- - SKIPPING TO DATA 

d) NO DATA OF THE TYPE SPECIFIED FOUND- -SKIPPING 
TO NEXT CASE 

e) TOO MANY OBSERVATIONS--REMAINDER IGNORED 

With the exception of error e all of these messages are 
self-explanatory. 

•e) The GEORGE program will process a maximum of 
4000 observations per case. Observations in 
excess of 4000 will be ignored. 
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2.1.3 GROUNDTRACK 


GROUNDTRACK is a GRODYN support program which 
reads a subsatellite groundtrack ta.pQ written by 
GEODYN and plots, using the WRDC SC4020 PLOT PACKAGE, the 
geometry of satellite passes across the stations 
tracking the satellite. Only those passes on which 
tracking data is taken are written on the groundtrack 
tape. Plots from GROUNDTRACK may be obtained on the 
printer and/or an SC4020 Plotter Driver tape. 

The following pages will describe in detail the 
setup and operation of the GROUNDTRACK suxiport program 
of the GEODYN System. 



2,1, 3,1 GROUNDTRACK Input Cards 

Specific functions of the GROUNDTRACK program may 
be requested by cards. T)ie GROUNUTRjXCK Input Cards are 
separated into two categories; ^ 

0 GROUNDTRACK Mandatory Cards -- the se are cards 
that must be present for each case. 

0 GROUNDTRACK Option Cards -- these are cards 
that, as the name implies, are optional, 

■A set of these cards will define a case. More than 
one case may be, present. 

This section of the manual describes the format and 
usage of the GROUNDTRACK Input Cards. 
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STATION POSITION CARDS 


COLUMNS 

. FORMAT 

DESCRIPTION 


1-6 

A6 

Station 

name, i 


7-10 

14 

Station 

number . 


11 

A1 

Sign of 

Latitude 


12-13 

12 

Degrees 

1 Station 


14-15 

12 

Minutes ^ 

^ Geodetic ^ 

^ ' 

16-25 

FlO. 5 

Seconds 

I Latitude 


26-28 

13 

Degrees] 

1 Station 


29-30 

12 

Minutes ' 

> East 

X 

31-40 

FlO. 5 

Seconds ] 

1 Longitude 


41-50 

FlO. 5 

Station 

height in meters 


Note ; Station position cards are mandatory for all stations 
for wliich plotting is requested. A maximum of 10 
stations is permitted per case. 


2‘24 



STATION POSITION 
TERMINATION CARD 

s 


:nd 


mm 


0 0 0 0 0 0 
I ) } 4 ) I 

t H n I 


2 2 2 2 2 2 

3 3 3 3 3 3 

4 4 4 4 4 < 

5 5 5 5 5 5 

6 6 C G 6 C 

7 7 7 7 7 7 
S 8 8 8 8 P 


.V S’> 


' i-' I- 






9 9 9 8 9 C 

I ? ] 4 S ‘ I 


, r j' ,, " 2 < : 1 7 : , . >i\ 

N '' jlj ’ 

^ ^ ^ \ ' ' ' ‘ i ^ ' ; ■' ■■ A ' - '■■' > ' ' ‘ 4 ■■J » ^ -i 4 


< 0 ' > -i 5. ^ ; 


T . ■' > ^ 










COLUMNS 

1-3 


FORMAT DESCRIPTION 

A3 The word "END" specified here indicates 

the end of the Station Position cards 

for the case. 


This card must be present. 





OPTION CARD 
GRDSl-T 


JIgroseS- 



315 . 


285 . 


6. 




1 n 1 n n ] 1 

■2 2 2 2 2 2 2 2-7 2 
3 3 3 3 3 3 3 3 3 .1 
M4444444'', 
J 55555555 6 
G 6 G 0 e C 6 6 6 
M 7 7 7 7 7 7 7 7 


60., 


/ 


30 . 


r- » n H .i |.; ,, n ^'1 ° J ® J f ^ 0 0' 0 0 M 0 0 0 0 0 0 0 0 0 0 0 P 0 0 0 0 0 C* 

r ” * n n n M m 11 n , n i u 

\2 2222222222222222222 


33333333333333333333 


9 5 D 9 5 8 9 S p 

i; i' 14 ij i{ r 12 


-1 4 4 4 4 4 4 4 4 4j4 4 4 4 4 4 4 4 4 4 
5555555555555535555; 
G G G e 6 t G 6 G f G 5 C C 6 E S 6 G e 
77337777777777777777 
8 8 e 8 8 8 8 c 8 { 

;3 3 9 9 9 9 S 9 5 olg 9 3 S 9 9 ti 9 <1 ^ 

p :: » :« :s « ;> ;i m ,, ;, 


■7 8888888868888988888 


' H 11 1 1 i M 
2222222222 
'3333333333 
'4444444444 

'5 5 5 5 5 5 5 5 5 5 


9 599599934 

O U <j 2', 4. < 


111111111 

2222222222 


3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 | 


4444444444 
5 5 5 5 5 s's 5 5 5 


■'EEGEe6CCeG6G 666G66ECGS666&GE6 

777777777777777777777777777777 
G 8 8 C 8 {; F S 8 P 8 E 8 8 8 8 8 .2 3 f 3 8 8 8 8 8 8 e C 8 


9999999939 


1 1 II I 1 I 1 11 
2222222222 


444444444 

5555555555 


9S999995S: 


I S? !i M !5 a i, it !S 1. i, f, IJ „ IJ |, J, J, , J 






COLUMNS 

FORMAT 

DESCRIPTION 

1-6 

A6 

The word "GRDSET" specified here indicates 
that this card will specify the grid 
parameters. If this card is not pre-‘ 
sent. GPOUNDTRACK will compute appro- 
priate grid limits. 

11-20 

F10.5 

Maximum longitude west of station. 

21-30 

FIO.S 

Minimum longitude east of station. 

31-40 

FIO. 5 

Number of longitudinal grid intervals. 

41-50 

F10.5 

Minimum latitude. 

51-60 

FIO. 5 

Maximum latitude. 

61-70 

FIO.S 

Numbei of latitudinal grid intervals. 
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OPTION CARD 
U'UPLT 



COLUMNS FORMAT DESCRIPTION 

"LNDPLT" specified here indicates 
plot is to be superimposed over the 
land contour plot for the region of the 
earth specified. 
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OPTION CARD 
PLOTS 


PLOTS 


L 




0 0 0 0 0 o' 

t } ) < S E 

1 n 1 n 

*T 'C*' ’*• 1 

[ ■ 

OOOOOOOOOD 

•1 1? 11 M IS ts 1? 1! IS :: 

1 11 11 1 n n 




2 2 2 ?2? 

1111 

2222222232 

WiM 



333333 

■,y. 

3333333333 




4 4 4 4 4'! 


4444444444 ' 




5 5 5 5 5J. 


5 5 5 5 5 5 5 5 5 

1 




6 6 6 6 6 0 


8 G G S G 6 6 6 G 6' 

: 



7 7 7 7 7 ? 

■ 

7 7 7 7 7 7 7 7 7 ?| 

; 


/ ; " ' . ; M i w ; '•» / - 7 7 7 . ‘ ? : ? ' “ 7 7 7 f ? 7 7 ’ 1 ! : 7 .‘ ; • 

0 8 8 8 8 8 


? C B 8 8 8 8 8 8 8 

i 


a ^ > i -S ^ I' ' i 

9 9 5 S 3 : 

1 ? } < S f 


i9 9 3 9 9 9 9 3 9 e 

'1 1 * 11 ii ts ;e 1 ! u 11 :: 

• : ■ : 


> 1 < * V , < u 

COLUMNS 

FORMAT 

DESCRIPTION 

1-5 

AS 

The 

word "PLOTS” .specified here indicates 





that groundtrack plots are requested with 


• 



the 

option specified on this card. 

11 - 

■20 

F10.5 

=0. 

Printer plots only. 





=^ 1 . 

Printer plots and an SC4020 Plotter 
Driver tape. 
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OPTION CARD 
TIMH 


4 

TIME 


680412. 

120000. 

680415. 


0 0 0 0 G C 

1 I } < 4 ( 

11 1 n 1 

V ''.>■>:*•* - 

0 0 0 0 0 D 0 0 0 C 

11 1? 1} 14 li IS 11 It IS }■: 

1 M M t M n 

oooooooooc 

M .V JJ ?4 55 ?S ?? :s 7: y 

1 n 1 1 n 1 n 

OOOOOOOOOC 

1' 3? .’1 J4 35 35 Jf a 53 *' 

} 1 n M 1 1 1 1 


722222 


2222222222 

2222222222 

222222222? 


333333 


3333333333 

3333333333 

3333333333 


444444 


4444444444 

4444444444 

4444444444 


055555 


5555555555 

5555555555 

5555555555 

M 

6 5 6 6 G 6 


6GG6G 6 6 6 6 r- 

G 0 S b G 6 6 6 6 8 

G G G G 6 6 D G G V 

L 

777777 


iiminii 

7777777777 

7777777777 

1 

886838 

Ilii 

8868888888 

S 8 8 8 6 8 8 8 3 C 

3888888886 

'ii 

9 9 9 3 9 

1 } > 4 » { 

,y. 

9 0 9 9 S 9 S 9 9 9 

II i: '.] 14 1; IS -.1 14 It ;t 

9 9 9 9 S 9 9 9 9 r 

:i ’? M M :>«;» ?j :i ,■ 

9999999935 

31 .'3 :t a 31 a J3 a ii • 


^IOOOG^ / 

J 


0 0 fi c fi 0 c 0 0 r 

i; 4MJ u <■ 5’ «i V 

J 1 1 t n n 1 
?? 2 2 2 2 2 2 2 2 
3 D 3 3 3 3 3 n i 
' 4 4 4 ^ 4 ^ 

5555555055 
5GD(j6Gf6^C 

7 7 7 7 7 7 2 ? ? 7|; > 

8 p 3 G s n e 8 1 ! {. 

3 G 3 0 ‘1 5 C 9 9 1' '3li ' 

'I (2 <j II ■ u <•' <4 <: i: 


■} I ' I 

: 2,7 






:;7;'R i' V ;c t' s ■■■ . 

4l4vi44;:7:, ■1;;'* ■••I ''4;:4C ■* ; -I'. 




COLUMNS 

FOIU^UT 

DESCRIPTION 


1-4 

A4 

The word "TIME” specified 

here indicates 

• 


that the groundrx'ack plot 

times will be 



specified on this card. 


11-20 

FIO, S 

Start date in YYMMDD. 


21-30 

F10.5 

Start time in HllMM. 



31-40 

41-50 


FIO.S Stop date in YYMMDD. 

F10.5 Stop time in 
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8 s e 8 e G 

8 9 9 9 9 9 

I 7 i < } ( 


OPTION TERMINATION CARl)^'-- 
DATA 


DATA 


0 0 0 0 0 c 

1 7 3 < : ( 

1 1 1 n I 


2 2 2 2 2 ? 
3 3 3 3 3 3! 

5 5 5 5 9 

6 6 6 8 C C 

7 7 7 7 7 7 


/>• / 








■ ' ' ' » s ^ 7 , ; ' ' : ' . ' ^ ‘ ’ Vh '' 


j ) > ^ ' < _ ' i i ', ' , 'i < 

:;.;.;..:.;.v^/.:.■.;vv:.:.;v■^;^v:.^ .«-x ;.:.:.:.x.;.:.;.;.•:;.;.^^ ' - ' •"■•■•’••> ' !■ »• ? •■ '• '••'••/• i 




COLUMNS 

1-4 


FORMAT 

A4 


DESCRIPTION 

The word "DATA" specified here indicates 
the end of the optional GROUNDTRACK 
Input Cards. 


Note: *OPTION TERMINATION CARD- -This card must always be 

present for each arc. 
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CASE TERMINATION CARD* 


/Ilast 


00 Q 0 0 n 

’ J 1 4 J » 

Mini 
2 2 2 2 2 2 

3 3 3 3 3 3 

4 M 44 -5 

5 5 5 5 5 5; 
G G G C r> B 
77 7 7 7 7 
8 8 S 6 e G 


t 


’v ‘ >v j •• V 'C;V; C- ,i: '.-y i.' 0 a! x! TrA' ^ '• 

fc; i'i® lys# ^ 

' > ' " ' ’ ' ; ^ * 7 ? ^ ' ' , r ‘i , '! f n i i I 7 . ? » ’ ^ ' 7 ' ' j : : , « ; 


- - > 


3 8 S 9 s 

> r s 4 5 {j 


"X':*X'?;Vv\.:f!,;,5::;;..i;:;;:;:i 








COLUMNS 

FORMAT 

DESCRIPTION 


. 1-4 

A4 

The word "LAST" appearing 

here indicates 



that this is the last case 

I£ left 



blank this card indicates 
case will follow. 

that another 


Note: *CA5E TER^tlNATION CARD--This card always be present 

to terminate each case. 
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2.1.3. 2 GROUNDTRACK Job Control Language • and Hardware 
and Software Restrictions 

2.1.3. 2.1 Job Control Language 

/ 

The GROUNDTRACK program may t^e executed by use of the 
LINKGO procedure as follows; 

// EXEC LINKGO, REGION. GO=500K 

//LINK.SYSLIN DD * 

I NCLUDE LOADLI B ( ZCMLDGRK ) 

INCLUDE LOADLIB(ZCRJGIVRL) 

INCLUDE LOADLIB(ZCRGWTYP) 

ENTRY MAIN 
' 

//GO.FTllFOOl DD UNIT= 2400- 9 , VOL=SER=GTRACK , 

// DCE= CRECFM=FB,LRECL=80,BLKSI2E=3200) , 

// LABEL=(,BLP) 

//GO.FT20F001 DD UNIT= 2400- 7 , LABEL= ( ,BLP) , 

II DCB=(DEN=1,RECFM=FB,LRECL=6,BLKSIZE=4092) , 

// VOL=SER=PLOT3 
//GO.DATA5 DD * 

The GROUNDTRACK Input Card dech goes here. 

/* 

Unit 11 is used for input of the groundtfack tape. 

Unit 20 is used for output of, the SC4020 Plotter Driver 

tape. 

2. 1.3. 2.2 Hardware and Software Restrictions 

GROUNDTRACK requires a large scale IBM 560 computer 
with a minimum of BOOK bytes of user accessablc core, one 9 
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track tape drive, one 7 track tape drive, one card reader and 
one high speed printer. 

The current GROUNDTRACK program is executable under 

version 18 of tlie IBM 360 operating system. 

/ 

The compilation of GROUNDTRACK requires an IBM FORTRAN 
IV Level G compiler. 

There. are no GROUNDTRACK software or hardware restrictions 
other than that the above mentioned hardware and software be 
available and working properly. 
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2.1. 3. 3 GROUNDTRACK Example Job 

The example job for GROUNDTRACK is included with 
Example One for GEODYN in Section 4.1 of Volume 3. 

Shown in this example is the normal m'Bc^e of operation 
for the GROUNDTRACK program. However, as shown in Section 
2.1.3, 2,1, tape input may also be used for GROUNDTRACK 
rather than concatenating the GROUNDTRACK execution with ■ 
a GEODYN execution, ■ 
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2. 1.3. 4 GROUNDTRACK Krror Messages 

In addition to those error messages that, may bo printed 
by the IVRDC SC4020 PLOT PACKAGE, the following error message 
may be printed during the execution o.fythc GROUNDTRACK program, 

ILLEGAL OPTION CARD IGNORED REMAINING OPTIONS, 

EXECUTION CONTINUING 



2 . 1.4 WRDC SC^020 PLOT PACKAGE 


The WRDC SC4020 PLOT PACKAGE is a group of 
subroutines K’hich iiiay be called frq^ yPORTRAN programs 
and which may be used to plot info^rmation. The IVRDC 
SC4020 PLOT PACKAGE has no main program and tlierefore 
no setup and operation procedures.- However, since 
DELTA, GEORGE, and GROUNDTRACK all use the WRDC SC4020 
PLOT PACKAGE, it is appropriate to herein describe all 
error messages which may be printed by the WRDC SC4020 
PLOT PACKAGE during the execution of the above mentioned 
GEODYN support programs. 
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WRDC SC4020 PLOT PACKAGL 
ERUOR ^3ESSAGES 

The WRDC SC4020 PLOT PACKAGE three different 
error messages, all of which result froin inappropriate 
PLOT PACKAGE input. Consequently, any errors which have 
occured will be caused by errors in the calling programs 
(i.e. DELTA, GEORGE, and GROUNDTRACK) . The proper 
response to all of these messages is to examine the 
input to these calling programs for misplaced, out-of- 
order, or mispunched input cards or incorrectly specified 
input tape parameters. 

The WRDC SC4020 PLOT PACKAGE error messages are: 

1) SETGRD ARGUMENTS OUT OF RANGE -- LIMITS NOT . 

RESET 

2) EMPTY ARRAY OR ALL ITEMS EQUAL- IN QUICKY 

3) ■ //////// 

Slashes in upper right corner of a plot indicate 
an attempt was made to plot outside of the device limits. 

These errors always result in the following program 

action. 


1) 

Plot frame 

advance . 


2) 

No 

program 

corrective 

action . 

3) 

. No 

program 

corrective 

action . 
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2,2 GEODYN DATA HANDLING SUPPORT PROGRAMS 

The GEODYN Data Handling Support Programs are used 
for data management* The five data handling support programs 

j 

G DODS SORT-MERGE 

G GEOS SORT-MERGE 

G EPHEMERIS TAPE GENERATOR 
G ORBl CONVERSION (9-7 track) 

0 TDIF TABLE GENERATOR 

The operation o£ these programs is described in the 
following pages . 
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2.2.1 DODS SORT-MERGE 

DODS SORT-MERGE reads an unspecified number of 
data tapes in DODS Data Tape Eormal->.assuming these tapes 
to be one continuous file not in t-ime order. Scratdi 
files are written containing strings of time ordered 
data which are iteratively merged with otlior strings 
decreasing the number of strings by lialf until one time 
ordered string of data in DODS Data Tape Format exists. 

■ There is no card input to the DODS SORT-MERGE 
program. On tlie following pages will be described 

o Job Control Language and Job Submittal and 

0 ■ DODS SORT-MERGE Printer Output. 
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2. 2, 1,1 Job Control Language and Job Submittal 

To, submit a DODS SORT-MHRGE job requires only 
the preparation of the job control language (JCL) and 
submittal of the job to the compute'^ ^vith the proper 

y 

job identification slip. 


DODS SORT-MERGE may be invoked by usage of the 
FORTRAN and LINKGO procedures. 

// EXEC FORTRAN 
//SOURCE. SYSIN DD * 

■<«The DODS SORT-MERGE FORTRAN deck goes here.«< 


/* 

// EXEC LINKGO, REGION. GO=400K,TIME=1440 
//GO.FTlOFOOl DD UNIT= 2400- 9 , LABEL= ( , BLP) , 

// DCB=(RECFM=VBS,LRECL=104,BLKSIZE=1044) , 

// V0L=SER=CINPUT1,INPUT2, INPUTS, ) 

//GO.FTllFOOl DD UNIT=2400 - 4 , VOL = SER=OUTPUT , 
// DCB=CRECFM=VBS,LRECL=104,BLKSIZE=8324) , 

// LABEL=(,BLP) 

//GO.FT20F001 DD UNIT=DISK, SPACE= (2800 8 . 100) , 
// DCB=(RECFM=VST,BLKSIZE=2S008) 

■ //GO.FT21F001 DD UNIT=DISK , SPACE= (28008 , 100) , 
// DCB=(RECFM=VST,BLKSIZE=2S008) 

//GO.FT22F001 DD UNIT=DISK , SPACE= (2800 8 , 100) , 
// DCB= (RECFM=VST, BLKSI ZE=28008) 

//GO.FT23F001 DD UNIT=DISK , SPACE= (28008 , 100) , 
// DCB=(RECFM=VST,BLKS,IZE=2S008) 
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Data tape input is on unit 10. 

Data tape output is on unit 11. 

Units 20,21,22,23 are used for temporary scratch data 

storage and will each liold 23,000 observations. 

/> / 
j 

The combined disk space requested by units 
20-23 comes to a total of 1600 tracks. To allocate 
1600 tracks is extremely difficult; therefore, if more 
than 25,000 observations are to-be processed, units 
20-23 should be specified as 9-track, high density 
tapes with the following DCB parameters. 


DCB= (RECFM=VBS, LRECL= 28008, BLKSIZE= 28012, DEN=3) 
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REPRODTJCmTLlTY OF THE 
ORIGINAL PAGE IS POOR 
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2, 2. 1.2 DODS Sort-Merge Printer Oui.put 

During normal operation DODS SORT-MDRGE prints 
the number of strings of data before merge process 

y 

Only one error message may be printed and that 
message is 

NO SORT INPUT 

The following example job sorted and merged a 
data tape with 2130 measurements in random time order. 

The core and time required were 

CORE = 396k CPU = 0,91m I/O = 0.19m 
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2.2.2 GEOS SORT-MERGE 

GEOS SORT-MERGE reads an unspecified number of 
data tapes in GEOS Data Tape format assuming these 
tapes to be one continuous file nothin time order. 
Scratch files are written containi^ng strings of time 
ordered data which are iteratively merged with other 
strings decreasing the number, of strings by half until 
one time ordered string of data in GEOS Data Tape Format 
exists. 


There is no card input to the GEOS SORT-MERGE 
program. On the following pages will be described 

0 Job Control Language and Job Submittal. 

e GEOS SORT-MERGE Prlntt.:r Output. 
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2. 2, 2.1 Job Control Language and Job Submittal 

To submit a GEOS SORT-MERGE job requires only 
the preparation of the job control language (JCL) and 
submittal of the job to the computoT- /with tlie proper 
job identification slip. '' 


GEOS SORT-MERGE may be invoked by usage of the 
FORTRAN and LINKGO procedures. . 

// EXEC FORTRAN 
■ ■ //SOURCE. SYS IN DD- * 

The GEOS SORT-MERGE FORTRAN deck goes here. 

/* 

//EXEC LINKGO, REGION. GO=250K,TIME=1440 
//GO.FTlOFOOl DD UNIT= (2400 - 9 , . 2 ) . LAEEL= ( , BLP) , 
. // DCB=(RECFM=FB,LRECL=80,BLKSIZE=3200) , 

// V0L = SER=(INPUT1,INPUT2, INPUTS, ) 

//GO.FTllFOOl DD UNIT = 2400 - 4 , LABEL= ( , BLP) , 

■ // DCB=(RECFM=FBS,LRECL=80,ELKSIZE=8000) , 

// VOL=SER=OUTPUT 

//GO.FT20F001 DD UNIT-DISK, SPACE= (19008, 100) , 
7/ DCB= (RECFM=VST,ELKSIZE-19008) 

7/GO.FT21F001 DD UNIT-DISK, SPACE- (19008 , 100 ) , 

- // DCB=(RECFM=VST,BLKSIZE=19008) 

//GO.FT22F001 DD UNIT-DISK, SPACE- (19008 , 100) , 
// DCB=(RECFM-VST,BLKSIZE=19008) 

//GO.FT23F001 DD UNIT-DISK, SPACE- (19008 , 100) , 
// DCB=(RECPM-VST,BLKSIZE=19008) 
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Data tape input is on unit 10. 

Data tape output is on unit 11.* 

Units 20, 21, 22, 23 are used for temporary scratch 

data storage and will each hofd^ 25,000 observations 

j 

The combined disk space requested by units 
20-23 comes to a total of 1100 tracks. To allocate 
1100 tracks is extremely difficult; therefore, if more 
than 25,000 observations are to be processed, units 
20-23 should be specified as 9-track, high density tapes 
With the following DCB parameters, 

* I^CB=(RI:CFM=VBS,LRECL = 19008,BbKSIZE=19012,DEN=3) ' 
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Grn<; i-xAnpi.i: <iriiip pp^r.K 


//,.. .IHR ... 

// PX^r, FrtPTPAw 
//.snnPCF.SYSlf'i nn * 
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THF GFOS ^nPT-‘»r-P,nF PHRIPA’i f.|-c»' GHf:?; jtFRF 

• J 

/* 

if FXFC L PFGjn.M, r,n=p7t;|' 

//r,n. F T 1 1 Fno 1 nr« I I'vt 1 T-?4 nn-q , nr,p.r. j r-n- m^fp , i.r ft i. spo <; 1 7 F = ^onn ) , 
/ / J. A IX c !_ = ( , p I p ) , \/ n I v: <; F p, = r. p 7 f, u 

//Gn. F 1 ?OrO,'Xl O') 1 T=n I SK . nr.P = r-iiT.Ff’.-:W<;T.'Xi. KSI 7F=1900P ) , 

// .^pacf = { i9nop, 10) ; 

//GO, F 7? 1 FOO) nc' T = ni SK. , nCB=( ^•!FCF^• = v<^T.fX| K5;i ZF=1 900F ) , 

// SPACE = ( ) qnOB. 1 n ) 

//Gn.F 7??F001 no IIM I T=D|SK t OCB=( PFCFI' = ''.ST, BI.KSI 7.Fs } 900F ) t 
// SPAC = = ( 1 900fi, in ) 

•//Gn.FT;??Fnoi no !i''i t=oi sk , dcb= | pFr.F»‘=v.s7 .blksi 7.‘F = 1 9onF ) , 
if SPACF = { lOOOR, 10) 

//nn.FTi OFoni no * 

THF GFOS 0A7A CAPns 70 IXF mfrCRO f;n HFRF 

/# 


REPRODUCIBILITy OF THE 
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2,2, 2. 2 GI;OS Sort-Mcr^^e Printer Output 

During normal operation GEOS SORT-MERGE prints 
the number of strings data before eaej^ynerge process, 

j 

Only one error message may be printed and that 
message is 

NO SORT INPUT 

The following example job sorted and merged 
720 GEOS data cards in random time order. 

• ' The core and time required were 

CORE = 256k CPU - 0.12m I/O - 0.08m 
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2.2.3 EPHEMEJUS TAPE GENERATOR 


The EPIIEMERIS TAPE GENERATOR generates geocentric 
lunar positions at half day intervals, heliocentric 
positions of the Earth-moon barycentcy'^ and the planets, 
Venus, Mars_, Jupiter and Saturn at four day intervals and 
the nutation in obliquity at half day intervals. 



2, 2.3,1 Input Card 

The EPilBMERIS TAPE GENERATOR can read a maximum of 
three tapes since the JPL ephcmeris is broken into three 
pieces. The input card of the EPllEMEj/lS TAPE GENER/*TOR 
consists of specification of start and stop times for taking 
information from each input tape. This is done in the 
following manner: ' 


Columns 

Format 

Description 

1-12 

F12.5 

Julian start time of ephemeris. 

13-24 

F12,5 

Julian stop time for taking information 
from first input tape. 

25-36 

F12.5 

Julian start time for taking information 
from second input tape. If zero, second 


input tape will not be read. If second 
tape is to be read, start time must be 
the same as the stop time of first tape, 

37-48 F12.5 Julian stop time for taking information 

from second input tape, 

49-60 F12.5 Julian start time for taking information 

from third input tape. If zero, third 
tape will not be read. If third tape 
is to be read, start time must be the same 
as the stop time of second tape, 

61-72 F12.5 Julian stop time for taking information 

from third input tape. 

First, second and third tapes must use units 12, 13, 

and 14, respectively. 
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2. 2. 3. 2 Job Control Language and Job Submittal 

To 3ubmit an EPjlEMEllIS TAPE (JENERATOR job requires 
only the preparation of the job control language (JCL) and 
input card. 

The EPIIEMERIS TAPE GENERATOR may be invoked using the 
following procedure: 

// JOB 

// EXEC FORTIUN 
//SYSIN DD * 

«<The EPHEMERIS TAPE GENERATOR Source Deck goes here.<« 

/* 

// EXEC LINKGO,REGION«250K 

//GO.FTIOFOOI DD UiNIT=24 00- 9 ,DCB= (RECFM=VBS , 

// LRECL=436,BLKSIZE=7294 ,DEN=3) ,LABEL= (1 ,BLP) , 

7/ V0L=SER=0UTPUT 

//GO.FT12F001 DD UNIT=2400- 9 ,DCB= (RECFM=VBS , 

// LRECL=74S6,ELKSIZE=29828,DEN=3),LABEL=C,BLP) , 

// VOL=SER=INPUTl 

//GO.SYSUDUMP DD SYSOUT=C , SPACE= CCYL, (10 , 2) ) 

//GO.DATA5 DD * 

<<<The EPHEMERIS TAPE GENERATOR Input Card goes here.<<< 

/* 
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2.2.4 ORBl CONVERSION C5"7) Tracks 

The OUBl CONVERSION program reads a double preci- 
sion, 9-track, IBM 360 ORBl tape wriU;en by GEODYN and 
writes a single precision, 7-track, ylBM 7094 ORBl tape 
in the same format. 

There is ho card input and no printer output for 
the ORBl CONVERSION program and therefore, complete program 
operation is described by Job Control Language (JCL) . The 
JCL necessary is described belov/ and requires only to be 
submitted to the computer with the proper job identification 
slip. 

ORBl CONVERSION may be invoked by usage of the 
FORTRAN and'LINKGO procedures. 

// EXEC FORTRAN ■ 

//source: SYSIN DD * 

The ORBl CONVERSION FORTRAN deck goes here. 


/* 

// EXEC LINKGO 

//GO.FTlOFOOl DD UNIT=2400- 9 , LABEL= ( ,BLP) . 

// DCB=(RECFM=VBS.LRECL=2S04.BLKSIZE-28083 , 
// VOL=SER=INPUT9 

//GO.FTllFOOl DD UNIT=2400- 7 , LABEL= ( ,BLP) , 

// DCB=CRECFM=FB ,BLKSIZE=210Q.LRECL=21) 

// VOL=SER=OUTPUT 

Unit 10 is the IBM 300, 9- track, ORBl tape input. 
Unit 11 is the IBM 7094, 7-track, ORBl tape output. 
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The example job for ORBl CONVliRSlON is included with 
Example Three for GEODYN in Volume 3, Section 4.3, 
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2.2.5 TDir TABLE GENERATOR 

The TDIP TABLE GENERATOR generates tabular differences 
between the time systems A.l and UTl. It reads tables 
showing the differences betv^een systcnis/ UTl and UTC (UTl-UTC) 
which are obtained from The tables require continual 

up-dating as this information is received directly from 
b.i.h. 



2. 2. 5,1 Data Deck 

The values of UTl-UTC are received from B.I.H. on 
Circular D. 

/ 

j 

The values of UTl-UTC are input to the program at 
10-day intervals in the following manner; 

Columns Format Description 

1-6 16 Date in YYMMDD 

7-16 F10.5 . Value in seconds of UTl-UTC as given on 

circular D. 

An example of this circular is given on the following page. . 

The program then punches the values of A.l-UTl on 
cards in tabular form,' 



(n I.H.) 


6 /, (ic I'ObiCTx aioiu: 

7 ; . PARIS l4C’me 


Circul.ir D69 
Paris, 1972 A-Ji^ust: 1 


1 - UN1VERS/\L TIh:E .\ND CCX:>RDINAT£S OF THE POLE 


Date 

J.D. 


smoothed values 


raw values 


(Oh UT) 

2400000.5 


y 

UT2-UTC 

l)Tl-UTc\ 

X 

y 

UTl-UTC 


1972 

+ 

OPOOl 

ovcoo 

0. 000 Is 

O.OOCls 

O'.'OOl 

CFOOl 

O.OCOls 

s 

June 1 

4l 469 

-145 

+356 

-5252 

-5553 . 

- 151 

+341 

-554 1 

-10.555 

6 

474 

*-134 

+366 

-54 16 

-5710 

■ -129 

+3 71 

-5743 

571 

11 

479 

■ -120 

+376 

-5579 

-5861 

-114 

+359 

-5872 

586 

16 

484 

-105 

+385 

-5740 

-6006 

- .92 

+574 

-6019 

6c:. 

.21 

489 

■ - 89 

+394 

-5899 

-6145 

' - 92 

+421 

-6165 

614 

26 

494 

- 72 

+402 

-6057 

-6279 

- 51 

+382 

-6263 

■627 

July 1 

499 

- 54 

+409 

+3786 

+3391 

- 58 

+407 

+3616 

64 C 

lAT-UTC 

is exactly 

lOs in 

June 1972 







lAT-UTC is exactly 11s since, 1972 July 1st, Oh l)TC. 


2 - EMISSIOr^ TIME OF TIME SIGNALS, for June 1972 (E = UTC-Signal in 0.0001s) 


Signal 

E 

Signal , 


E 


■ Signal 

E 

CHU 

0 

FTI142, FTK77, 

FTN87 


0 

i KSS (o.c.) 

-1- 9, 

D.AM, DAN, D.AO 

0 

HEG 



0 

0LB5 

* (2) 

DCF 77 

KJ 

1 AH 



0 

OHA 

(2) 

DGI 

0 

IBF 


+ 

3 

PPE 

- 5 

DIZ 

0 

JJY 



0 

RWM (1) 

0 

FFH 

0 

LOL 


- 

5 

VNG 

0 

rTA91 

0 

liSF 


+ 

1 

W7V, kWB, WWH 

0 



GBZ (3) 


- 

3 

2U0 

(2) 

( 1 ) and other 

signals from 

, USSR 

(2) 

no 

data 

available 


(3) corrected 

values : Apr 

il 1972, E = - 3 

; May 1972, 

E = 

- 2 



3 « COORDINATED UNIVERS/IL TIME (approximation UTC(i) of UTC, kept by the laboratory i. 

Ref, CCIR Rccorrmendat ion 453, l970) 

a - From LOR/iN-C and Television pulses receptions 


Date 1972 

June 11 

June 2l 

July 1 

J.D. 2400000.5 + 

4l 

479 ■ 

4l 

489 

41 

499 

Laboratory i 



UTC-UTC(i) 

(unit : 

1 p-s) 


PTB (Braunschweig) 

+ 

2.9 

+ 

3,0 

+ 

2.9 

USNO (Washington) 

- 

6.6 


6.5 


6,2 

Op (Paris) 

+ 

1.6 

+ 

1.6 


1.6 

KBS (Boulder) 

- 

2.4 


2,5 


2.7 

RGO (Hcrstmonceux ) 

+ 

3.2 

H- 

3-8 

+ 

4.4 

KRC (Ottawa) 

+ 

0.8 

+ 

0,9 

+ 

1.2 

FOA (StockJiolm) 

. + 

23.9 

+ 

26.3 

+ 

28.6 

Dili (Hamburg) 

- 

16.9 

- 

15.3 

.. ■ 

13.9 

ON (Ncuchntcl) 

+ 

20.6 

+ 

20,7 

+ 

20.6 


o . c 0 


I 




2, 2. 5. 2 Job Control Language and Job Submittal 

To submit a TDIF TABLL GHNLILMOR job requires only 
the preparation of the job control language (JCL) and the 
data deck. ^ 

The TDir TABLE GENERATOR may be invoked using the 
following procedure: 

// JOB 

// EXEC F0RTRANH,PARM='ID,0PT=2' 

//SOURCE. SYSIN DD * \ 

, \ 

\ 

«<THE TDIF TABLE GENERATOR Fortran deck goes here.<<< 

// EXEC LOADER 

//GO.DATAS DD * . ' 

,<<<The TDIF TABLE GENERATOR data deck goes here^<< ■ 

/* • 
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